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PRESENTACIÓN 


Una función importante que puede cumplir un microordena- 
dor es la de dibujar en la pantalla distintos tipos de gráficos. 


El control de esta posibilidad ofrece al usuario la ocasión de 
afianzar su práctica en la programación y la de estimular su 
imaginación y creatividad en la exploración de la capacidad 
del microordenador en la realización de dibujos. Además, esta 
máquina es capaz de generar una amplia gama de colores en 
la pantalla y de producir sonidos y música. 


La utilización simultánea de todas estas posibilidades en un 
mismo programa conduce a una creativa actividad de análisis 
y síntesis, a despertar facultades estéticas y a disfrutar del 
ejercicio de las mismas. Aunque inicialmente todos estos pro- 
cesos se ponen en marcha en un contexto técnico, su poste- 
rior desarrollo supone el fomento de aspectos educativos de 
indudable valor formativo, a cuyo afianzamiento desea contri- 
buir este libro. 


En mayor o menor medida, casi todos los microordenadores 
poseen la capacidad de generar GRÁFICOS, COLORES y MÚ- 
SICA. Sin embargo, el modo y la forma de presentarlos son 
específicos de cada microordenador; y dado que en el mo- 
mento actual el más difundido es el ZX Spectrum, los pro- 
gramas incluidos en este libro están preparados para funcio- 
nar en este microordenador. No obstante, es factible adap- 
tarlos a otros microordenadores, para lo cual se sugiere con- 
sultar el manual correspondiente. 


Se ha tenido especial cuidado en dotar a este libro de unas 
características afines a nuestro entorno cultural. Esto se ha in- 
tentado plasmar tanto en aspectos generales como en deta- 
lles concretos. Entre los primeros cabe destacar el estilo del 
lenguaje, en el que se ha evitado incluir giros y vocablos forá- 
neos innecesarios, y entre los segundos, la elección de piezas 
musicales de nuestro folclore. 


En este libro, como en el anterior de la misma serie, se ha se- 
guido el método inductivo, introduciendo las instrucciones de 
GRÁFICOS, COLORES y MUSICA a partir de programas senci- 
llos, todos ellos resueltos. También se ha procurado dar a esta 
obra un enfoque interdisciplinar, mediante el desarrollo de 
programas relacionados con otras áreas de conocimiento. 


LOS AUTORES 


MUYPEE 


1. Gráficos en alta resolución 


l, 


Pantalla de alta resolución 


e En baja resolución, el ZX Spectrum escribe en 22 filas y 32 columnas, lo 


cual permite localizar 22 x 32 = 704 elementos en la pantalla: asteriscos, 
puntos u otros caracteres. Esta cantidad de elementos disponibles en baja 
resolución es escasa a la hora de dibujar gráficos, pues éstos no alcanzan 
suficiente precisión. 


No obstante, con ciertas instrucciones el microordenador puede imprimir 
puntos en 176 líneas horizontales (de O a 175) y en 256 líneas verticales 
(de O a 255); luego en la pantalla se pueden localizar 176 x 256 = 
= 45056 puntos. En estas circunstancias se dice que el microordenador 
imprime en alta resolución, y los gráficos que dibuja, gráficos en alta 
resolución. 


La pantalla de alta resolución del microordenador ZX Spectrum está refe- 
rida a un sistema de coordenadas, cuyo origen está localizado en el vér- 
tice inferior izquierda (fila O, columna 0); a los demás vértices les corres- 
ponden las coordenadas indicadas en la figura. 


A 239 


Las cuatro esquinas o vértices de la pantalla tienen, en consecuencia, las si- 
guientes coordenadas: 
— Inferior izquierda: (0, 0). 
— Inferior derecha: (255, 0). 
— Superior izquierda: (0, 175). 
— Superior derecha: (255, 175). 

e A cada elemento de la pantalla, en alta resolución, se le llama pixel (*). 
Así, el pixel de coordenadas (30, 25) es el lugar de la pantalla separado del 
origen 30 unidades en horizontal y 25 en vertical. 


0 30 255 


Luego la primera coordenada de pixel es la abscisa y la segunda la orde- 
nada. 


El centro de la pantalla corresponde al pixel de coordenadas (128, 88). 
175 


88 4 (128,88) 


| 
| 
| 
| 
| 
| 
| 


0 128 239 


(*) Esta palabra resulta de la contracción de la expresión inglesa «picture cell», que 
viene a significar célula imagen. 
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2. Instrucción para imprimir puntos 


e El primer problema que surge en alta resolución es el de imprimir un 
punto en unas coordenadas determinadas. Esto se consigue con la instruc- 
ción 
PLOT X, Y 
que imprime un punto en el pixel «de horizontal X y de vertical Y». 


e Aplicaremos esta instrucción en el siguiente programa que imprime puntos 
en las coordenadas que se van introduciendo. 


10 INPUT “HORIZONTAL”; X 
20 INPUT “VERTICAL”; Y 

30 PLOT X, Y 

40 GOTO 10 


Si se ejecuta el programa (pulsar RUN y ENTER) y se introducen las coor- 
denadas (200, 0), (128, 88) y (0, 100), en la pantalla se verán los si- 
guientes puntos: 


Debido a la instrucción 40 GO TO 10 este programa sigue pidiendo pares 
de valores X e Y e imprimiendo puntos. 
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e Este otro programa imprime 100 puntos en la pantalla de forma aleatoria. 


PROGRAMAS RESUELTOS 


ile 


RANDOMIZE 

FOR | = 1 TO 100 

LET X = INT (RND « 256) 
LET Y = INT (RND « 176) 


PLOT X, Y 
NEXT | 


Si se ejecuta el programa (teclear RUN y ENTER ) aparecerán en la panta- 
lla 100 puntos, los cuales irán variando cada vez que se ejecute el pro- 
grama, debido a la instrucción 10 RANDOMIZE y a la función RND que 
aparecen en las instrucciones 30 y 40, respectivamente. 


Las coordenadas X, Y de cada punto se obtienen tomando la parte entera 
INT del producto de RND por el número de puntos del eje horizontal, 256 
(de O a 255) y por el número de puntos del eje vertical, 176 (de O a 175), 
respectivamente. 


Una de las múltiples pantallas que se pueden obtener al ejecutar el pro- 
grama es ésta: 


Teniendo en cuenta que el centro de la pantalla es el punto (128, 
88), ¿qué dibuja el siguiente programa? 
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E NS DS e AS AA is A 


REM EJES COORDENADOS CENTRADOS EN EL PUNTO 128,88 
FOR X = 0 TO 255 

PLOT X, 88 

NEXT X 

FOR Y = 0 TO 175 

PLOT 128, Y 

NEXT Y 


Solución 


2. Hacer un programa que dibuje un cuadrado de vértices (0, 0), (175, 
0), (0, 175) y (175, 175). 


Solución 


1 


REM DIBUJAR UN CUADRADO DE VERTICES: (0, 0), (175, 0), (0, 


175) Y (175, 175) 


10 
20 
30 
40 
50 
60 


FOR K = 0 TO 175 
PLOT K, 0 

PLOT K, 175 

PLOT O, K 

PLOT 175, K 

NEXT K 


3. Añadir al cuadrado del ejercicio anterior sus diagonales. 


Solución 


1 REM DIBUJAR UN CUADRADO DE VERTICES: (0, 0), (175, 0), (0, 
175) Y (175, 175); Y SUS DIAGONALES 
10 FORK =O0TO 175 
20 PLOTK,0 
30 PLOT K, 175 
40 PLOTO, K 
50 PLOT 175, K 
60 PLOT K, K 
70 PLOT K, 175-K 
80 NEXT K 


4. Hacer un programa que recuadre la pantalla. 


Solución 


1 REM RECUADRAR TODA LA PANTALLA 
10 FORX=0TO 255 
20 PLOTX,0 
30 PLOTX, 175 
40 NEXT X 
50 FORY =0T0 175 
60 PLOTO, Y 
70 PLOT 255, Y 
80 NEXT Y 


3. Instrucción para trazar rectas o segmentos de recta 

e Para dibujar una línea recta desde el último punto (A, B) que se imprimió 
hasta el del coordenada A + H, B + V se utiliza la instrucción: 
DRAW H, V 
Por ejemplo, al ejecutar el programa: 


10 PLOT 20, 30 
20 DRAW 40, 50 


se obtiene un segmento de recta de extremos (20, 30) y (20 + 40, 30 + 


50) = (60, 80). 
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Vemos que la instrucción DRAW es relativa respecto del último punto que 
se imprimió (si no se imprimió previamente ningún punto se toma como 
punto de partida (0, 0)). Sus argumentos pueden ser positivos, negativos o 
nulos. Así, si el último punto que se imprimió es (A, B), se tiene: 


Dibuja una línea recta hasta un punto que se en- 
cuentra del punto (A, B): 


DRAW H, V H unidades a la derecha y V unidades hacia arriba. 
DRAW H,-V H unidades a la derecha y V unidades hacia abajo. 
DRAW-H, V H unidades a la izquierda y V unidades hacia arriba. 
DRAW-H,-V H unidades a la izquierda y V unidades hacia abajo. 


Si en la instrucción DRAW H, V, H es 0, se imprime un segmento vertical, 
dado que la abscisa se mantiene constante, y es la que corresponde a la 
del punto anterior impreso. Por el contrario, si V es O se imprime una recta 
horizontal por permanecer la ordenada constante. 


En la utilización de esta instrucción, como de otras que estudiaremos más 
adelante, hay que evitar que las coordenadas de los puntos adquieran va- 
lores que sitúen a éstos fuera de la pantalla, pues ello ocasionaría la inte- 
rrupción de la ejecución, acompañada de un mensaje de error. Es necesa- 
rio, por tanto, asignar a los argumentos H y V valores apropiados que evi- 
ten salirse de la pantalla. 


El siguiente programa muestra el funcionamiento de la instrucción DRAW 
con distintos argumentos. 


REM RECTANGULO 
DRAW 200, 0 
DRAW 0, 100 
DRAW —200, 0 
DRAW O, —100 


Al ejecutarse el programa la instrucción 10 DRAW 200, O dibuja una recta 
horizontal desde el punto de partida (0, 0) hasta el punto que se encuen- 
tra 200 posiciones a la derecha: (200, 0). 


La instrucción 20 DRAW 0, 100 dibuja una recta vertical desde el último 
punto impreso (200, 0) hasta el punto que se encuentra 100 posiciones 
hacia arriba: (200, 100). 
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La instrucción 30 DRAW -200, O dibuja una recta horizontal desde el úl- 
timo punto impreso (200, 100) hasta el punto que se encuentra 200 posi- 
ciones a la izquierda: (0, 100). 

Y, por último, la instrucción 40 DRAW 0, -100 completa el rectángulo, di- 
bujando la recta vertical que une al último punto impreso (0, 100) con el 
punto que se encuentra 100 posiciones abajo: (0, 0). 


En la pantalla se obtiene esta figura: 


5. Hacer un programa que dibuje dos ejes coordenados con centro en 
el punto (128, 88), utilizando la instrucción PLOT para posicional, y 
la DRAW para trazar rectas. 


Solución 


10 PLOT 128,0 
20 DRAW 0,175 
30 PLOT 0,88 
40 DRAW 255,0 


6. Hacer un programa que dibuje las diagonales de la pantalla, es de- 
cir, las rectas que unen el punto (0, 0) con (255, 175) y (0, 175) con 


(255, 0). 


Solución 


10 DRAW 255, 175 
20 PLOTO, 175 
30 DRAW 255, -175 


7. Elaborar un programa que dibuje un triángulo que tenga como vér- 
tices los puntos (10, 10), (210, 10) y (110, 100). 


Solución 


10 PLOT 10, 10 

20 DRAW 200, 0 

30 DRAW -100, 90 
40 DRAW -100, -90 


4. Dibujo de arcos de circunferencia 


e Con la instrucción DRAW se pueden dibujar arcos de circunferencia, aña- 
diendo un tercer parámetro, N: 


DRAW H, V, N 


Los extremos del arco corresponden al punto anteriormente impreso o po- 
sicionado, y al definido por los valores de los parámetros H y V. El paráme- 
tro N indica el ángulo (en radianes) correspondiente al arco que se desea 
dibujar; si este parámetro es positivo, el arco se va dibujando en sentido 
antihorario (ángulos positivos), y si es negativo, en sentido horario (ángulos 
negativos). 


Por ejemplo, si el último punto posicionado es 10, 25, la instrucción 
37 DRAW-20, 50, Pl 


genera en sentido antihorario un arco de Pl radianes (Pl equivale a 1809) 
en la posición indicada en la figura: 


e El programa 


PLOT 50, 50 
DRAW 40, O, PI 
PLOT 100, 50 
DRAW 40, 0, —Pl 
PLOT 150, 50 


DRAW 30, 30, Pl/2 
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dibujará en pantalla tres arcos: 
1. Instrucciones 10 y 20. 


comienzo en (50, 50) —> A <— final en (90, 50) 


Como N = PI se obtendrá media circunferencia. El recorrido entre el 
comienzo y el final se hará en sentido antihorario por ser N positivo. 


2. Instrucciones 30 y 40. 


comienzo en (100, 50) —> EA <— final en (140, 50) 


Como N = —Pl, el recorrido se hará en sentido horario y se obtendrá 
media circunferencia. 


3. Instrucciones 50 y 60. 


a -— final en (180, 80) 
comienzo en (150, 50) —> 


El recorrido para dibujar este cuarto de circunferencia se hará en sen- 
tido antihorario por ser N = Pl/2. 


Si se ejecuta el programa se obtiene como resultado el que muestra la fo- 
tografía: 


PROGRAMAS RESUELTOS 


8. Hacer un programa que dibuje un cuarto de circunferencia cuyos 
extremos queden definidos por el punto (128, 88), y por el punto si- 
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tuado a 50 unidades a la izquierda y 50 unidades hacia arriba del 
anterior. Generar el arco en sentido antihorario. 


Solución 


10 PLOT 128, 88 
20 DRAW -50, 50, Pl/2 


9. Hacer un programa que dibuje diez medias circunferencias que 
unan los puntos (0, 88) y (250, 88). La primera habrá de ir del (0, 
88) al (25, 88), la segunda del (25, 88) al (50, 88), etc. 


Solución 


10 
20 
30 
40 


PLOT 0, 88 
FORi= 1T0 10 
DRAW 25, O, Pl 
NEXT ¡ 


12. Hacer un programa que recuadre toda la pantalla y dibuje dos ejes 
coordenados con origen en el centro de la pantalla (128, 88). 


Solución 


1 REM RECUADRAR TODA LA PANTALLA Y DIBUJAR UNOS EJES 

COORDENADOS CENTRADOS EN EL PIXEL 128, 88 

10 FOR X= 0 TO 255 

20 PLOTX, 0 

30 PLOTX, 175 

40 PLOT X, 88 

50 NEXT X 

60 FOR Y =0T0 175 

70 PLOTO, Y 

80 PLOT 255, Y 

90 PLOT 128, Y 
100 NEXT Y 


13. Hacer un programa que dibuje rectas verticales que equidisten entre 
sí ocho puntos, y que ocupen toda la pantalla. 


Solución 


1 REM BARRAS VERTICALES DE 8 EN 8 PUNTOS 
10 FOR X= 0TO 255 STEP 8 
20 FOR Y =0T0O 175 
30 PLOT X, Y 
40 NEXT Y 
50 NEXT X 
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14. Escribir un programa que cuadricule la pantalla por medio de líneas 
verticales y horizontales. 


Solución 


1 


REM CUADRICULAR LA PANTALLA VALIENDO CADA LADO 8 


PIXELS 


10 
20 
30 
40 


FOR Y = 0 TO 175 STEP 8 
FOR X = 0 TO 255 

PLOT X, Y 

NEXT X 

NEXT Y 

FOR X = 0 TO 255 STEP 8 
FOR Y = 0 TO 175 

PLOT X, Y 

NEXT Y 

NEXT X 


15. Hacer un programa que dibuje barras horizontales cuyo grosor sea 
de cuatro puntos y que disten entre sí ocho puntos. 


Solución 


10 FORi=0TO 175 STEP 12 
20 FORj=i¡TO¡+3 

30 PLOTO,¡ 

40 DRAW 255, 0 

50 NEXT ¡ 

60 NEXT ¡ 


16. Diseñar un programa que dibuje una serie de cinco cuadrados, 
siendo el primero el de vértices (0, 0), (10, 0), (0, 10) y (10, 10) y los 
siguientes vayan duplicando la longitud del lado del cuadrado ante- 
rior. (El punto (0, 0) es vértice de todos los cuadrados.) 


Solución 


1 REM DIBUJAR UNA SERIE DE CINCO CUADROS QUE COMIENCEN 
CON EL DE VERTICES: (0, 0), (10, 0), (0, 10) Y (10, 10); Y LOS SI- 
GUIENTES VAYAN DUPLICANDO LA LONGITUD DEL LADO DEL CUA- 
DRADO ANTERIOR 

10 LETL= 10 

20 FORI=1TO5 
30 FORK=0TOL 
40 PLOTK,O0 

50 PLOT K, L 

60 PLOTO, K 

70 PLOT L, K 

80 NEXT K 

90 LETL=2x*L 
100 NEXT | 
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17. Hacer un programa que al ejecutarse produzca el efecto de que el 
punto (128, 88) se dispare según las bisectrices de los cuatro cua- 
drantes. 


Solución 


1 REM PUNTO QUE SE DISPARA DESDE EL 128, 88; SEGUN LAS BI- 
SECTRICES DE LOS CUATRO CUADRANTES 
10 FORJ=0T0 87 
20 PLOT 128 + J, 88 + ) 
30 PLOT 128 + J, 88 — ) 
40 PLOT 128 — J, 88 + )J 
50 PLOT 128 — J, 88 — J) 
60 NEXT) 


18. Elaborar un programa que dibuje una “pajarita de vestir” que tenga 
como vértices las cuatro esquinas de la pantalla (solamente su con- 
torno). 


H 


Solución 


1 REM PAJARITA 
10 DRAW 255, 175 
20 DRAWO, -175 
30 DRAW -255, 175 
40 DRAWO, -175 


19. Hacer un programa que dibuje un tablero de ajedrez, teniendo en 
cuenta que el lado de cada cuadrado ha de medir 8 y que la esquina 
inferior izquierda del mismo debe ser el punto (8 x11,8 * 10). 


Solución 


10 FORi=0T08 

20 PLOT8+11,8*10+8+xi 
30 DRAW8*8,0 

40 NEXT ¡ 

50 FORi¡=0T08 

60 PLOT8x11+8+xi,8x 10 
70 DRAWO0, 8x8 

80 NEXT i 
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20. Dibujar un paralelepípedo recto rectangular (ortoedro) tal que su 
cara frontal tenga de largo 205 y alto 125 y uno de sus vértices sea 
el (0, 0). La cara posterior debe contener el vértice (50, 50). 


Solución 


1 REM PARALELEPIPEDO RECTANGULAR 
10 GO SUB 1000 
20 PLOT 50, 50 
30 GO SUB 1000 
40 PLOTO, O 
50 DRAW 50, 50 
60 PLOT 205, 0 
70 DRAW 50, 50 
80 PLOT 205, 125 
90 DRAW 50, 50 
100 PLOT O, 125 
110 DRAW 50, 50 
120 GOTO 1070 
1000 REM SUBRUTINA RECTANGULO 
1020 DRAW 205,0 
1030 DRAWO, 125 
1040 DRAW -205, 0 
1050 DRAWO, -125 
1060 RETURN 
1070 STOP 


21. Hacer un programa que dibuje un cubo de lado 80 y que uno de 
sus vértices sea el punto (0, 0). 


29 


Solución 


1 REM DIBUJAR UN CUBO DE LADO 
80 Y QUE UNO DE SUS VERTICES SEA 
EL PUNTO (0, 0) 

10  DRAW 80, 0 
20 DRAWO, 80 
30 DRAW -80, 0 
40 DRAW 0, -80 
50 LETL = SQR (80 1 2/2) 
60 DRAW L, L 
70 DRAW 80, 0 
80 DRAW O, 80 
90 DRAW -80, 0 
100  DRAW O, -80 
110 PLOT 80, 0 
120 DRAWL,L 
130 PLOT 80, 80 
140 DRAWL, L 
150 PLOT O, 80 
160 DRAWL, L 


22. Hacer un programa que dibuje arcos, desde el punto (113, 175) al 
(143, 175), que vayan variando de O a 2 *Pl, con paso de Pl/8 (im- 
primir el valor del ángulo). Además, la imagen debe permanecer en 
la pantalla durante una pausa de 50 cada vez que se dibuje un 
nuevo arco y, a continuación, se debe borrar la pantalla. 


30 


Solución 


1 REM HACER UN PROGRAMA QUE DIBUJE ARCOS 
10 FORi=0T0 2 + Pl STEP Pl/8 
20 PRINT¡ 
30 PLOT 113, 175 
40 DRAW 30, 0, ¡ 
50 PAUSE 50 
60 CLS 
70 NEXT ¡ 


23. Hacer un programa que dibuje una diana centrada en el punto 
(128, 88), de tal manera que los radios de las circunferencias con- 
céntricas vayan aumentando de 5 en 5. 


Solución 


1 REM DIBUJAR UNA DIANA CENTRADA EN 128, 88 Y QUE LOS 
RADIOS VAYAN AUMENTANDO DE 5 EN 5 
10 FORI|= 5T0 87 STEP 5 
20 CIRCLE 128, 88, | 
30 NEXT | 


24. Diseñar un programa que dibuje N circunferencias con centros alea- 
torios y radio R. (Las circunferencias deben quedar dentro de la pan- 


talla.) 


Solución 


1 


REM DIBUJA N CIRCUNFERENCIAS CON CENTROS ALEATORIOS 


Y RADIO R 

10 INPUT “CUANTAS CIRCUNFERENCIAS”; N 
20 INPUT “RADIO (MAXIMO 87)”; R 

30 RANDOMIZE 

40 LETX= 255 — 2 *R 

50 LETY= 175 — 2 *R 

60 FORI|I=1TON 

70 CIRCLER + RND *X, R + RND *Y, R 

80 NEXT! 


POR EJEMPLO PARA N = 20 Y R = 30 UNA DE LAS POSIBLES PANTA- 
LLAS ES 


LO 


Dibujar un cilindro que tenga de centro de la base el punto (100, 
100), de radio, 25 y de altura, 20. (Dibujar una circunferencia cada 
tres puntos de altura.) 


Solución 


1 
10 


REM CICLINDRO 
FOR | = 0 TO 20 STEP 3 


20 CIRCLE 100, 100 + |, 25 


30 


NEXT | 


32 


26. Diseñar un programa que dibuje un cilindro tal que el radio y la al- 
tura se introduzcan por el teclado, estando el centro de la base si- 
tuado en el punto (128, 38). ¿Qué valores máximos se pueden dar 
para el radio y la altura? 


Solución 


1 


REM DIBUJAR MEDIOS CILINDROS 


CON RADIO Y ALTURA LA QUE SE 
INTRODUZCA Y COMO CENTRO DE LA BASE 
EL PUNTO (128, 38). 


10 
20 
25 
27 
28 
40 


INPUT “RADIO (MAXIMO 38)”; R 
INPUT “ALTURA (MAXIMO 98)"; H 
FOR | = 0 TO H STEP 5 

PLOT 128 —R, 38 + | 

DRAW 2 +*R, 0, —PI 

NEXT | 


PARA R = 38 y H = 98 SE TIENE 


27. Hacer un programa que dibuje un cilindro inclinado a base de circun- 
ferencias de radio 30 y cuyos centros vayan aumentando de 3 en 3 
puntos, comenzando por el punto (100, 100). 


Solución 


1 REM CILINDRO INCLINADO 
10 FOR!|=1T0 10 
20 CIRCLE 100 + | *x3, 100 + | *3, 30 
30 NEXT! 


28. Hacer un programa que dibuje un cono por medio de circunferen- 
cias, cuyos radios R varían de 4 a 50 con incrementos de 4 y sus 
centros comiencen en el punto (80, 10) y se incremente R y 2 + R. 


Solución 


1 REM CONO 

10 FORR= 4T0O 50 STEP 4 
20 CIRCLE 80 +R, 10+2*R,R 
30 NEXTR 


2. Diseño 


1. Manejo de la instruccion DRAW: dibujo de una casa 


e El programa siguiente permite dibujar una casa en alta resolución utili- 
zando repetidas veces la instrucción DRAW, que traza líneas con desplaza- 
mientos sucesivos a partir de posiciones fijadas con la instrucción PLOT. 


DIBUJO DE UNA CASA 
5 REM TEJADO 
6 REMxxxxx 

10 PLOT 100, 80 

20 DRAW 20, 30 

30  DRAW 40, 0 

40 DRAW 20, -30 

50 DRAW — 80,0 

55 REM PAREDES Y SUELO 

56 REMxxxxxxxxxx*x 

60 DRAW O, -70 

70 DRAW 80, 0 

80 DRAWO, 70 

85 REM PUERTA 

86 REMxxxxx* 

90 PLOT 170, 10 
100 DRAW 0, 30 
110 DRAW -20, 0 
120 DRAW 0, -30 
125 REM VENTANA 
126 REMxxxxx* 
130 PLOT 110, 65 
140 DRAW 10, 0 
150 DRAW 0, -10 
160 DRAW-10, 0 
170 DRAWO, 10 


La instrucción 10 fija un punto, a partir del cual en las instrucciones 20 a 
50 se trazan los tramos rectos que constituyen el tejado. Las instrucciones 
60, 70 y 80 dibujan las paredes y el suelo. 
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Finalmente, se dibujan la puerta (instrucciones 90 a 120) y la ventana (ins- 
trucciones 140 a 170). 


Para obtener el dibujo que produce este programa pulsamos las teclas 
RUN y ENTER, apareciendo en la pantalla lo que muestra la fotografía. 


2. Manejo de la instrucción circle: dibujo de un oso. 


e Con el uso de sucesivas instrucciones CIRCLE se puede también conseguir 
diversas figuras. Como ejemplo, transcribimos el siguiente programa que 
dibuja un oso en la pantalla. 


DIBUJO DE UN OSO 

10 CIRCLE 120, 70, 50 
20 CIRCLE 120, 140, 30 
30 CIRCLE 85, 25, 18 
40 CIRCLE 155, 25, 18 
50 CIRCLE 80, 115, 13 
60 CIRCLE 160, 115, 13 
70 CIRCLE 95, 160, 7 


80 CIRCLE 145, 160, 7 
90 CIRCLE 107, 150, 5 
100 CIRCLE 133, 150, 5 
110 CIRCLE 120, 140, 6 
120 PLOT 115, 128 
130 DRAW 5, -2 

140 DRAW 5,2 


Con las instrucciones 10 a 110 se dibuja el cuerpo, cabeza, patas delan- 
teras y traseras, orejas, ojos y nariz del oso. Unicamente se usan instruc- 
ciones DRAW (130 y 140) para dibujar la boca. 


36 


Ejecutando el programa (pulsar RUN y ENTER) se obtiene lo que muestra 
la fotografía. 


3. Dibujo de una cara sonriente 


e A la instrucción DRAW se le puede dar un tercer argumento, que en este 
caso nos permite dibujar la boca de una cara sonriente. 


CARA SONRIENTE 
10 CIRCLE 128, 88, 50 
20 CIRCLE 103, 108, 5 
30 CIRCLE 153, 108, 5 
40 PLOT 98, 68 
50 DRAW 60, O, Pl/3 


Esta misma cara se puede convertir en triste sustituyendo la instrucción 50 
por 


50 DRAW 60, O, —Pl/3 


Programa que realiza diferentes diseños 


El programa siguiente lee en instrucciones DATA las coordenadas de dife- 
rentes puntos que constituyen un determinado diseño. Estas coordenadas 
se almacenan en una tabla. El dibujo parte de un punto (XA, YA), y los si- 
guientes se obtienen a partir de él, trazando segmentos de recta. 


Si el dato leído es 1000 se interrumpe el trazado del dibujo, como si se 
tratara de un lápiz que se levanta; luego continúa el trazado a partir de un 
punto determinado. 


Cuando las coordenadas del punto guardadas en la instrucción DATA va- 
len 999 se da por terminado el dibujo. 


PROGRAMA QUE REALIZA DIFERENTES DISEÑOS 
10 DIM X (100): DIM Y (100) 
20 LETJ=1 
30 FORI= 1T0O 100 
40 READ X (1), Y (1) 
50 IF X (1) = 999 THEN GO TO 100 
60 NEXT | 
100 LET XA = X(J): LET YA = Y()) 
110 PLOT XA, YA 
120 LETDX = X()) — XA 
130 LET DY = Y(U)) — YA 
140 DRAW DX, DY 
150 LET XA = X(J): LET YA = Y()) 
160 LETJ=J>+w1 
170 IF X (J) = 1000 THEN LETJ =J+ 1 
GO TO 100 
180 IF X (J) = 999 THEN STOP 
190 GOTO 120 
200 DATA... 
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e Dibujo de un avión 
Si al programa anterior le añadimos las siguientes instrucciones DATA 


DATA 139, 76, 119, 87, 64 
DATA 81, 55, 97, 49, 76 
DATA 94, 74, 69, 56, 130 
DATA 71, 139, 76, 1000, 1000 
DATA 109, 85, 69, 98, 92 


DATA 84, 999, 999 


se obtiene el dibujo de un avión, como el que muestra la fotografía. 


e Dibujo de una caja 
Con las siguientes instrucciones DATA se obtiene una caja. 


DATA 86, 75, 86, 88, 107 
DATA 88, 107, 75, 86, 75 
DATA 86, 88, 91, 95, 111 
DATA 95, 107, 88, 107, 75 
DATA 112, 81, 112, 95, 107 


DATA 108, 87, 108, 92, 95 
DATA 999, 999 
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e Dibujo de una estrella 
Con estas instrucciones DATA se obtiene una esirella. 


200 DATA 110, 105, 117, 89, 134 
210 DATA 89, 122, 75, 125, 54 
220 DATA 110, 67, 95, 54, 98 
230 DATA 73, 86, 84, 104, 86 
240 DATA 109, 105, 999, 999 
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5. Dibujo con escala 


e El tamaño de los dibujos se puede cambiar modificando la escala, aña- 
diendo al programa anterior la instrucción 5 y modificando la 140. 


5 INPUT “ESCALA”; ES 
140  DRAW DX + ES, DY x ES 


El programa modificado quedaría así: 


INPUT “ESCALA”; ES 

DIM X (100): DIM Y (100) 

LET J=1 

FOR I=1 TO 100 

READ X (1), Y (1) 

IF X (1)=999 THEN GO TO 100 
NEXT | 

LET XA=X (1): LET YA=Y (J) 
PLOT XA, YA 

LETDX=X (J) —XA 

LETDY=Y (1) —YA 

DRAW DXx*ES, DYx*ES 

LET XA=X (J): LET YA=Y (1) 
LET J=J+1 

IF X (1)=1000 THEN LET J=J+1: GO TO 100 
IF X (1)=999 THEN STOP 

GO TO 120 


e Dibujo del avión con escala, ES = 1,5 


DATA 139, 76, 119, 87, 64 
DATA 81, 55, 97, 49, 76 
DATA 94, 74, 69, 56, 130 
DATA 71, 139, 76, 1000, 1000 
DATA 109, 85, 69, 98, 92 


DATA 84, 999, 999 
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A> 


e Dibujo de la caja con escala, ES = 3 


200 
210 
220 
230 
240 
250 
260 


DATA 86, 75, 86, 88, 107 
DATA 88, 107, 75, 86, 75 
DATA 86, 88, 91, 95, 111 
DATA 95, 107, 88, 107, 75 
DATA 112, 81, 112, 95, 107 
DATA 108, 87, 108, 92, 95 
DATA 999, 999 
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e Dibujo de la estrella con escala, ES = 2 


DATA 110, 105, 117, 89, 134 
DATA 89, 122, 75, 125, 54 
DATA 110, 67, 95, 54, 98 
DATA 73, 86, 84, 104, 86 
DATA 109, 105, 999, 999 


6. Programa que dibuja en ocho direcciones y borra 


e El programa siguiente utiliza una nueva instrucción INKEY $. Esta instruc- 
ció lee el teclado buscando, qué tecla está pulsándose y la almacena en una 
variable de cadena. También se utiliza la instrucción PAUSE O que i¡nte- 
rrumpe la ejecución hasta que se pulse una tecla. 
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PRINT “PULSA B PARA BORRAR O D PARA DIBUJAR” 
PAUSE 0 

LET X = 100: LET Y = 100: LETL =0 

LET C$ = INKEY$ : IFC$ <>" " THEN GOTO 60 
PLOT X, Y 

PLOT INVERSE 1; X, Y 

GO TO 20 

IF. L = 0 THEN PLOT X, Y 

IF. L = 1 THEN PLOT INVERSE 1; X, Y 

FC “5” THEN LET X = X — 1 

IF “8” THEN LET X = X + 1 

IF “6” THEN LET Y = Y — 1 

IF “7” THEN LET Y = Y + 1 

IF “1” THEN LET X = X + 1: LETY =Y-— 1 
“2” THEN LETX =X+1:LETY=Y +1 
“3” THEN LETX =X-— 1: LETY = Y -—1 
“4” THEN LETX =X — 1: LETY =Y +1 
“D” THEN LETL = 1 

= "B” THEN LETL =0 

GOTO 20 


+ 

EXI AAA A 
AAA AA A IN 
A A A 


5 
PAD) 
e e 
MT 


En el programa se desplaza el punto que se va a imprimir con la instruc- 
ción PLOT X, Y. 


PLOT INVERSE 1; X, Y imprime invertidos la tinta y el papel y, por tanto, 
puede utilizarse para borrar. Esto es lo que se hace en la instrucción 70, 
según el valor que tome la variable L. 
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3. Dibujos a partir 
de la circunferencia 


1. Dibujo de una circunferencia «punto a punto» 


Una circunferencia se puede dibujar directamente con la instrucción CIRCLE. 
Pero puede interesar dibujarla punto a punto, para lo cual es necesario de- 
terminar previamente las coordenadas de uno de los puntos de dicha circun- 
ferencia. 


Suponiendo que el radio de la circunferencia es R y que el origen de coorde- 
nadas coincide con su centro, las coordenadas (X, Y) de un punto cualquiera 
de la misma, se obtienen partiendo de la definición de seno y coseno. 


(X, Y) 


AM) o 


uN o 


=> Y =Rsen a 


| >| < 


=>X=Rcosa 


Si el centro C de la circunferencia se sitúa en el pixel A, B de la pantalla, 
las coordenadas (X, Y) se obtendrán sumando a X el número A y a Y el 
número B. 


< 


(0,0) A Xx 


Si decidimos dibujar la circunferencia con N puntos, tendremos que fijar 
previamente el valor del ángulo a. necesario para pasar de un punto al si- 
guiente. Este valor se calcula teniendo en cuenta que el ángulo completo 
correspondiente a toda la circunferencia es 360%, que equivale a 2 Tt ra- 
dianes; luego si dibujamos N puntos, tendremos: 


a=2 * PI/N 


Es decir, el ángulo correspondiente al punto 1 valdrá 2 * PI/N * 1, el co- 
rrespondiente al punto 2, 2 * PI/N + 2, ..., y el correspondiente al punto N, 
2 * PIN *N = 2 *Pl. 

Luego, las coordenadas de los sucesivos puntos de la circunferencia se po- 
drán determinar mediante las siguientes fórmulas: 


X=A+R*COS (2 * PI/N « |) 
= B +R SIN (2 * PI/N « |) 


siendo | = 1,2,...,N. 


Para elaborar el programa que dibuje una circunferencia con una serie de 
puntos, hay que tener en cuenta las dos últimas fórmulas, fijando previa- 
mente los siguientes parámetros: 


A, B: coordenadas del centro de la circunferencia 
R: radio de la circunferencia 
N: número de puntos 


Además, hay que definir la variable |, que tomará todos los valores enteros 
desde 1 a N, ambos inclusive. Así se obtiene el siguiente programa. 
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INPUT “CENTRO”; A,B 

INPUT “RADIO”; R 

INPUT “NUMERO DE PUNTOS”; N 
FOR|= 1TON 

LETX =A+R*COS (2 * PI/N « |) 


LET Y = B +R +SIN (2 * PI/N « 1) 
PLOT X,Y 
NEXT | 


Si lo ejecutamos para A = 128, B = 88, R= 50 y N = 100, obtenemos: 


Si lo ejecutamos para A = 100, B = 100, R= 75 y N = 200, tenemos: 


A 


2. División de un círculo en N partes iguales 


Para dividir una circunferencia en N partes iguales, la dibujaremos previa- 
mente con una instrucción CIRCLE y, a continuación, uniremos su centro con 
cada uno de los N puntos; así se obtendrán N sectores iguales. 


El programa que realiza esta división es el siguiente: 


INPUT “CENTRO”; A,B 
INPUT “RADIO”; R 
INPUT “PARTES”; N 
CIRCLE A,B,R 

FOR|= 1TON 


PLOT A,B 

LET X =R * COS (2 * PI/N * 1) 
LET Y =R «SIN (2 * PI/N « 1) 
DRAW X,Y 

NEXT | 


Si lo ejecutamos para A = 128, B = 88, R = 50 y N = 7, obtenemos: 


Si lo ejecutamos para A = 128, B = 88, R = 87 y N = 21, tenemos: 
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3. Polígonos regulares 


La división de la circunferencia en N partes iguales sugiere la obtención de 
polígonos regulares de N lados inscritos en la misma. 


El siguiente programa dibuja polígonos regulares pero no la circunferencia en 
la que están inscritos. Esta circunferencia tiene su centro en el pixel 128, 88 y 
su radio es 80. 


INPUT “NUMERO DE LADOS”; N 
LETA = 128 + 80 

LET B = 88 

PLOT A, B 

FOR | = 1 TON 

LET X = 128 + 80 * COS (2 * PI/N « 1) 
LET Y = 88 + 80 + SIN (2 * PI/N « 1) 
DRAW X — A, Y — B 

LETA =X 


LETB = Y 
NEXT | 


Con la instrucción 10 se introduce el número de lados del polígono. 


Las instrucciones 20, 30 y 40 imprimen un punto en el pixel 128 + 80, 88, 
donde comienza a dibujarse el polígono. 


El bucle 50-110 dibuja los N lados. 


Las instrucciones 60 y 70 calculan las coordenadas del siguiente punto de la 
circunferencia que hay que unir al A, B. 


La instrucción 80 DRAW X — A, Y — B une los pixels A, B y X, Y. 


Las instrucciones 90 y 100 almacenan en A y B las coordenadas X, Y, calcu- 
ladas por las instrucciones 60 y 70, que serán el pixel de partida para dibujar 
el siguiente lado. 


En resumen (A, B), representan las coordenadas del origen de un lado y (X, 
Y), el punto final del lado. 
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Si lo ejecutamos, tenemos 


TRIÁNGULO (N = 3) 


CUADRADO (N = 4) 


PENTÁGONO (N = 5) 
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HEXÁGONO (N = 6) 


HEPTÁGONO (N = 7) 


OCTÓGONO (N = 8) 
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DODECÁGONO (N = 12) 


POLÍGONO REGULAR DE 30 LADOS 


Nota.—Como se puede observar, al aumentar el número de lados el perímetro del 
polígono regular se aproxima cada vez más a la circunferencia. 


4. Flor de circunferencias 


La flor de circunferencias es un conjunto de N circunferencias, todas ellas 
de radio R, cuyos centros determinan a su vez otra circunferencia de radio 
RP, llamado radio principal. 


En el programa siguiente, que genera la flor de circunferencias, la circunfe- 
rencia de radio RP tiene su centro en el pixel 128, 88. 
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INPUT “NUMERO DE CIRCUNFERENCIAS”; N 
INPUT “RADIO DE LAS CIRCUNFERENCIAS”; R 
INPUT “RADIO PRINCIPAL”; RP 
FORI=1TON 

LET X = 128 + RP * COS (2 * PI/N + 1) 


LET Y = 88 + RP +* SIN (2 * PI/N « 1) 
CIRCLE X, Y, R 
NEXT | 


Cuando se ejecuta este programa, al introducir los datos hay que evitar que 
el dibujo se salga de la pantalla, para lo cual debe cumplirse R + RP < 87. 


Flor para N = 6, R = 20 y RP = 67 


Flor para N = 12, R = 20 y RP = 67 


= 20 y RP = 67 


= 40, R 


Flor para N 


=35 


= 30 y RP 


=8,R 


Flor para N 
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40 y RP 


Flor para N = 16, R 
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Flor para N = 30, R = 25 y RP = 25 


Flor para N = 20, R = 40 y RP = 30 


5. Rayos desde el centro de una circunferencia 


El programa siguiente traza N rayos de longitud 70, que parten del pixel 128, 
88. 
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10 INPUT “NUMERO DE RAYOS”; N 
20 FORI=1TON 

30 PLOT 128, 88 

40 LETX= 70 * COS (2 * PI/N x 1) 
50 LET Y = 70 + SIN (2 + PI/N « 1) 
60 DRAW X, Y 

70 NEXT | 


Para N = 20 se obtiene: 


Para N = 50, tenemos: 
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6. Rayos que parten de un punto situado a la izquierda de una 
circunferencia 


Localizando el centro emisor de los rayos del programa anterior en el pixel 
28, 88 (para que quede suficiente espacio a su derecha) y aumentando X en 
100 unidades en la instrucción DRAW, se obtiene un conjunto de rayos que 
parten de un punto situado a la izquierda del centro de la circunferencia de 
radio 70, y centro el pixel 128, 88. 


10 INPUT “NUMERO DE RAYOS”; N 
20 FORI=1TON 

30 PLOT 28, 88 

40 LETX= 70 * COS (2 * PI/N « 1) 
50 LET Y = 70 «SIN (2 +* PI/N « 1) 
60 DRAW 100 + X, Y 

70 NEXT 1 


Para N = 40, tenemos: 
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Para N = 100, obtenemos: 


58 


4. Representación gráfica 
de funciones 


1. Planteamiento del problema 


Para dibujar la gráfica de una función debemos tener en cuenta dos cues- 
tiones previas: 


— ¿Dónde situar el centro de los ejes? 
— ¿Qué escala hay que elegir en cada eje? 


Con el fin de contestar a estas preguntas estudiaremos una función sencilla: 
F (x) = x?, y a partir de ella intentaremos sacar conclusiones generales. 


2. Centrado de ejes 


La gráfica de la función F (x) = x? es una parábola cuyo vértice es el punto 
(0, 0), y ocupa el primero y el segundo cuadrante. Luego los ejes deben estar 
centrados en el pixel (128, 0) que se encuentra en el centro de la línea infe- 
rior de la pantalla. 


La subrutina que dibuja los ejes es: 


REM CENTRADO DE EJES 
PLOT O, 0 

DRAW 255, 0 

PLOT 128, 0 

DRAW 0, 175 


Las instrucciones 1010 y 1020 dibujan el eje de abscisas, y las instrucciones 1030 
y 1040 dibujan el eje de ordenadas. 
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Al ejecutar esta subrutina se obtiene lo que muestra la pantalla. 


Si queremos que los ejes queden centrados en el pixel (C1, C2), basta gene- 
ralizar la subrutina anterior cambiando 128 por C1 y O por C2 en las instruc- 
ciones 1030 y 1010. 


REM CENTRADO DE EJES 
PLOT O, C2 

DRAW 255, 0 

PLOT C1,0 

DRAW 0, 175 


Esta subrutina dibuja los ejes coordenados para cualquier posición del centro 
(C1, C2), pero aquí solamente consideraremos los siguientes centros: 


(0, 0), que determina el primer cuadrante, 
(128, 0), que determina el primero y el segundo cuadrante, 
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(0, 88), que determina el primero y el cuarto cuadrante y 
(128, 88), que determina los cuatro cuadrantes. 


3. Localización de la gráfica en los límites de la pantalla 


e Si una vez elegido el centro de los ejes, se empieza a dibujar puntos de la 
función F (x) = x?, puede ocurrir que algunos de ellos queden fuera de los 
límites de la pantalla. Ocurre, entonces, que la ejecución se detiene, apare- 
ciendo un mensaje de error. Es necesario, por tanto, evitar esta situación 
eligiendo adecuadamente los valores extremos de X a la izquierda y dere- 
cha de la pantalla, de tal manera que sus correspondientes valores F (x) no 
sobrepasen los valores 0 y 175 (límite inferior y superior de la pantalla). 


175 


0 
0 (0,88) 255 


Si el valor máximo que puede tomar F (x) es 175, ¿cuáles serán los valores 
extremos de X que hacen que F (x) no supere dicho valor? 
SIF(x)=x?=175 entonces x=+V175= + 13.228757 
Luego los valores de X estarán comprendidos entre -13 y 13: 

AS ERAS 
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e Los valores extremos de X a la izquierda y a la derecha del origen de coor- 
denadas los indicaremos por X1 y X2, respectivamente. En el ejemplo que 
venimos estudiando, X1 = -13 y X2 = 13. Fijados estos extremos, ya se 
puede dibujar la gráfica de la función F (x) = X?, mediante el siguiente 
programa: 


DEF FN F (X) = X * X 
READ C1, C2 

GO SUB 1000 

READ X1, X2 

REMxxx*x xx 

REM DIBUJO 

FOR X = X1 TO X2 

LET Y = FN F (X) 

PLOT C1 + X, C2 + Y 
NEXT X 

STOP 
REMxx*xxwv%xx%* xx x*x xxx 
REM CENTRADO DE EJES 
PLOT 0, C2 

DRAW 255, 0 


PLOT C1, 0 
DRAW 0, 175 


RETURN 
REM xx xx 
REM DATOS 
DATA 128,0 
DATA -13,13 


Este programa funciona así: 


— La instrucción 10 define la función FN F (X) = X * X (No se poneX 7 2 
pues el ZX Spectrum no admite potencias de números negativos.) 


, 
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— La instrucción 20 lee los valores del centro C1 y C2, y la instrucción 30 
llama a la subrutina de “centrado de ejes” para que dibuje los ejes de 
coordenadas centrados en C1, C2. 


— La instrucción 40 lee los valores extremos del eje de abscisas X1 y X2. 


— El bloque 100-150 dibuja la función. 
Al ejecutar el programa se obtiene la siguiente gráfica. 


Se observa que la gráfica obtenida está formada por puntos bastante dis- 
tantes, y que se ha desperdiciado gran parte de la pantalla, a izquierda y a 
derecha del eje de ordenadas. Esto se puede evitar eligiendo adecuada- 
mente las escalas en ambos ejes. 


4. Elección de escalas en los ejes 


e Para determinar la escala en cada eje elegiremos las siguientes variables: 


X1: extremo inferior del eje de abscisas 

X2: extremo superior del eje de abscisas 

Y1: extremo inferior del eje de ordenadas 

Y2: extremo superior del eje de ordenadas 

DX: valor de la división en el eje X 

DY: valor de la división en el eje Y 

X3: abscisa del punto de la pantalla que se va a imprimir 
Y3: ordenada del punto de la pantalla que se va a imprimir 
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El programa que incluye la utilización de escalas es el siguiente: 


DEF FN F (X) = X * X 

READ C1, C2 

GO SUB 1000 

READ X1, X2 

READ Y1, Y2 

LET DX = (X2 — X1)/255 
LET DY = (Y2 — Y1)/175 
REMxx*xx*xxx* 

REM DIBUJO 

FOR X = X1 TO X2 STEP DX 
LET Y = FN F(X) 

LET X3 = INT ((X — X1)/DX + 0. 5) 
LET Y3 = INT ((Y — Y1)/DY +0. 5) 
PLOT X3, Y3 

NEXT X 

STOP 
REMxxxxxxxxx% xx 
REM CENTRADO DE EJES 
PLOT O, C2 

DRAW 255, 0 

PLOT C1,.0 

DRAW O, 175 

RETURN 

REM xxx x* 

REM DATOS 

DATA 128, 0 

DATA —13, 13 

DATA 0, 169 


Veamos cómo funciona este programa: 


— La instrucción 10 define la función F (X) = X * X. 

— La instrucción 20 lee las coordenadas del centro (C1, C2). 

— La 30 llama a la subrutina que dibuja los ejes. 

— La 40 lee los valores extremos del eje de abscisas y la 50 los valores ex- 
tremos del eje de ordenadas. 
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Como se ha visto, estos valores extremos no son arbitrarios sino que se 
calculan teniendo en cuenta los límites de la pantalla. 
En este ejemplo, X1 y X2 se determinaron anteriormente: 

X1l=-13 y X2=13 
Los extremos de Y se calculan considerando que 

F(-13) = (-13? = 169 y F(13)= 13? = 169 

y que se cumple F (X) = X? > 0 
Luego, 

Y1=0 e Y2=169 
Las instrucciones 60 y 70 calculan el valor de la división en los ejes de 


abscisas y ordenadas, respectivamente. 


_ ed _— MAA — MX. 
DX = —=5 “US = 0.10196078 


Y2-Y1 _ 169-0 
m6 — TA 
Luego en el eje X el salto de 1 pixel va a corresponder a un salto real 


de 0.10196078 (se ensancha casi 10 veces la gráfica), y en el eje Y va 
a corresponder a un salto real de 0.96571429. 


La línea 110 FOR X = X1 TO X2 STEP DX abre el bucle que dibuja la 
función. En total se van a imprimir 255 pixels, pues X varía desde X1 = 
= —13 hasta X2 = 13 pero con paso DX = 0.10196078. 

La instrucción 120 LET Y = FN F (X) calcula los valores de la función 
F (X) = X* correspondientes a los valores comprendidos entre X1 y X2. 
Las instrucciones 130 y 140 calculan los valores X3 e Y3 en función de 
X e Y, respectivamente. Aquí se tienen en cuenta los extremos X1, X2 
y las escalas elegidas DX y DY en los ejes coordenados. 


Los valores de la variable X3 estarán comprendidos entre O y 255, y se 
calculan mediante la expresión: 


DY = = 0.96571429 


X3 = INT ( ==" + 05) 


Los valores de Y3 estarán comprendidos entre O y 169, y se calculan 

mediante la expresión: 

es Yel 
DY 

La instrucción 180 PLOT X3, Y3 imprime el pixel correspondiente. 


La línea 190 NEXT X obliga repetir el bucle y la 200 STOP para el pro- 
ceso. 


Y3 = INT ( + 0.5) 
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Si se ejecuta el programa se obtiene lo que muestra la pantalla: 


Ahora se aprecia mejor la gráfica de la función F (X) = X?, aunque tiene el 
inconveniente de estar bastante deformada por haber elegido escalas dife- 
rentes en el eje de abscisas y en el de ordenadas. 


169 


169 pixels 


- 15 0 13 


pe 255 pixels >) 


La gráfica está ensanchada considerablemente, y este ensanchamiento 
viene dado por la relación entre ambas escalas DX y DY. Dicha relación es 
de 0.10196078 a 0.96571429: 


0.10196078 / 0.96571429 = 0.1055806 
que impone un ensanchamiento de casi 10 veces. 
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5. Gráficas de algunas funciones 


e F(X) = Xx? 


Como F (X) puede tomar valores negativos y positivos interesa centrar los 
ejes en el pixel (128, 88). 175 1 


87 


| (128,88) 


Si hacemos F (X) = X? = 87, se obtiene X = V87 = 4.4310476 
Elegiremos, entonces: 


Xl=-—4 X2=4 
Y1 = —64 Y2 = 64 


En el programa general hay que cambiar las instrucciones siguientes 


DEF FN F (X) = X * X * X 
DATA 128, 88 

DATA —4, 4 

DATA —64, 64 


Al ejecutar el programa se obtiene la siguiente pantalla: 
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e F(X) = sen X 
La función F (X) = sen X es periódica, de período 2 rt. Luego X variará en- 
tre X1 = 0 y X2 = 2 1. Como además, el seno varía entre —1 y 1, 
—1<senX< 1 
los valores extremos de Y serán Y1 = —1 e Y2 = 1. Es evidente que el 
centro habrá que localizarlo en el pixel (0, 88). 


Las instrucciones que hay que cambiar en el programa general son éstas: 


10 DEF FNX (X) = SIN X 
9010 DATA O, 88 
9020 DATA 0,2 * Pl 
9030 DATA —1, 1 


Al ejecutar el programa se obtiene la siguiente gráfica: 


68 


e F(X) = cos X 


La función F (X) = cos X también es periódica, de período 2 rt, luego X va- 
riará entre X1 = 0 y X2 = 2 tt. Como además se cumple —1 < sen X < 1, 
los valores extremos de Y serán los siguientes 


Yl=-1 e Y2=1 
El centro se situará en el pixel (0, 88). 
Las instrucciones que hay que cambiar en el programa general son éstas: 


10 DEF FNF (X) = COS X 
9010 DATA O, 88 
9020 DATAO, 2 *PI 
9030 DATA —1, 1 


Al ejecutar el programa se obtiene la siguiente gráfica: 
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e F(X) = TAN X 
La función F (X) = TAN X también es periódica, pero de período rt y como 
es discontinua en 


MY E. 
2." 2 
elegiremos como valores extremos de X los siguientes: 
MH 
Al 2 + 0.1 
X2 = ea (0 
Y como - 
F(X1) = TAN (= > + 0.1) = —9.9666444 
F (X2) = TAN (= Ea —0.1) = 9.9666444 
hacemos 
Y1 = -10 
Y2 = 10 


El centro estará en el pixel (128, 88). 
Las instrucciones que hay que cambiar en el programa general son éstas: 


DEF FN F (X) = TAN X 

DATA 128, 88 

DATA —PlI / 2 + 0.1, PI /2 — 0.1 
DATA —10, 10 


La gráfica que se obtiene es la siguiente: 
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e F(X) = VX 


La función F (X) = VX da el valor positivo de la raíz cuadrada de X, y 
solamente definida para X => 0. Se tiene entonces que si 


X1=0 
X2 = 255 


la raíz cuadrada de estos valores es 
W255 = 15.968719 
Luego los valores extremos de Y son: 


Y1=0 
Y2 = 15.97 


El centro estará en el pixel (0, 0). 


Las instrucciones que hay que cambiar en el programa general son: 


DEF FN F (X) = SQR X 
DATA 0, 0 

DATA 0, 255 

DATA 0, 15.97 


La gráfica que se obtiene es la siguiente: 
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e F(X) = e* 


La función exponencial F (X) = e* siempre es positiva y al ser e” = 1, en el 
eje de ordenadas debemos tomar un valor pequeño para que se pueda 
apreciar la gráfica de la función para valores de X negativos. 


Si elegimos como valor extremo superior de Y 
Y2 = 20 
el correspondiente valor extremo de X a la derecha se obtiene así 
e* = 20 = In e* = In 20 > x = 2.9957323 
Esto nos lleva a elegir como valores extremos de X los siguientes: 


X1l =-—3 
X2=3 


El centro será el pixel (128, 0). 
Las instrucciones que hay que cambiar en el programa general son: 


DEF FN F (X) = EXP X 
DATA 128, 0 

DATA -3, 3 

DATA O, 20 


El resultado que se obtiene al ejecutar el programa es el que muestra la 
fotografía: 
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e F(X) = InX 

La función logaritmo natural o neperiano F (X) = In X sólo está definida 
para valores de X positivos y al ser In 1 = O el valor máximo de X no debe 
ser muy grande para que se pueda apreciar la parte negativa de la fun- 
ción. 
Por ejemplo, si elegimos como valores extremos de X 

X1 =0,1 

X2 =20 
los correspondientes valores extremos de Y se obtienen así: 


In 0.1 = —2.3025851 
In 20 = 2.9957323 


Elegimos como valores extremos de Y los siguientes 


Y1 = -23 
Y2 =3 


El centro será el pixel (0, 88). 
Las instrucciones que hay que cambiar en el programa general son: 


DEF FN F (X) = LN X 
DATA 0, 88 

DATA 0.1, 20 

DATA —2.3, 3 


La gráfica que se obtiene es la siguiente: 
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* FO)= 


La función F (X) = XL es discontinua para X = 0, luego hay que evitar va- 
lores próximos al cero; además X no debe ser ni muy pequeña ni muy 
grande, pues de lo contrario F (X) = < se haría demasiado grande o de- 
masiado pequeña, respectivamente. Así se obtendrá una buena representa- 
ción. 
Teniendo en cuenta las anteriores consideraciones, tomamos: 

Xl =-—5 X2=5 

Yli==3 Y2=5 
y como centro, el pixel (128, 88), pues X e Y van a ser ambos positivos. 


Al dispararse la función para valores de X muy próximos al cero (disconti- 
nuidad en el cero) hay que añadir una instrucción como la siguiente: 


115 1F —0.2 < = X AND X < = 0.2 THEN GOTO 190 
que evita la división por cero. 
Las instrucciones que hay que cambiar o añadir al programa general son: 


10 DEFFNF (X) = 1/X 
115 IF—0.2< = X AND X < 
= 0.2 THEN GOTO 190 
9010 DATA 128, 88 
9020 DATA -5, 5 


9030 DATA -5, 5 


Al ejecutar el programa se obtiene esta gráfica: 
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”. FM =- sn 


La función  F(X) = = X 
es continua, pues cuando X se aproxima a cero (0) se tiene que F(X)= sn 
se aproxima a 1. Fa = 0.99833417 
sen X : 
y cuando x se hace grande (en valor absoluto), “— tiende a cero, 
| . sen15 
pues el sen X se mantiene entre —1 y 1. Así: — 5 0.043352523 


Teniendo en cuenta estas propiedades, elegimos como valores extremos, 
por ejemplo, los siguientes: 


X1 


El centro será el pixel (128, 88), pues X e Y pueden ser positivos y nega- 
tivos. 


Las instrucciones que hay que cambiar en el programa general son: 


DEF FN F (X) = SIN X/X 
DATA 128, 88 

DATA —15, 15 

DATA —1, 1 


La gráfica que se obtiene es ésta: 


75 


cos X 
Xx 


Esta función es discontinua para X igual a cero, luego debemos añadir al 
programa general una instrucción como ésta: 


115 1F —1 < = X AND X < = 1 THEN GOTO 190 


dado que si X tomara un valor entre —1 y 1 la función se saldría de la 
pantalla. 


F (X) = 


Además, si X se hace grande (en valor absoluto) SÁ X tiende a cero, 


al mantenerse cos X entre —1 y 1. Así: A = —0.050645861 


Luego tomaremos por ejemplo los siguientes valores extremos 

X1 = —15 X2 = 15 

Yl = —1 Y2 =1 
Como los valores de X e Y pueden ser positivos y negativos, el centro es- 
tará en el pixel (128, 88). 


Las instrucciones que hay que añadir o cambiar en el programa general 
son: 


10 DEF FNF (X) = COS X/X 
115 IF-1< =XAND X < = 
1 THEN GOTO 190 
9010 DATA 128, 88 
9020 DATA —15, 15 


9030 DATA —1, 1 


La gráfica que se obtiene es la que muestra la fotografía: 
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e F(X) = sen X + cos X 


La función F (X) = sen X + cos X es periódica, de período 2 rt, y al ser la 
suma del seno y del coseno, F (X) variará entre —1 —1 =—2y1+1=2. 


Los valores extremos que debemos tomar son: 


Xx1=0 X2 = 2n 
Y =-—2 Y2=2 


Como X sólo toma valores positivos el centro lo tomamos en el pixel (0, 88). 
Las instrucciones que hay que cambiar en el programa general son: 


DEF FN F (X) = SIN X + COS X 
DATA 0, 88 

DATA O, 2 * Pl 

DATA —2, 2 


La gráfica que se obtiene es la siguiente: 


4 yONTE de 


6 
> 


BIBLIOTECA 


CENTRAL UNA 


$ AHORRO, 


<P 
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5. Creación de caracteres 
y movimientos 


Cómo dibuja el microordenador caracteres en la pantalla 


e Si observamos detenidamente un carácter en la pantalla, por ejemplo, la 


letra A, veremos que está compuesto por un conjunto de pequeños cua- 
dritos, llamados píxels. 


Para que el microordenador dibuje un carácter en la pantalla debe recibir 
la información necesaria para dibujar en color tinta los pixels que definen 
el carácter, y los que se encuentran dentro del área del mismo, en el color 
de fondo (papel), tal como se indica en la siguiente figura, que representa 
los pixels muy aumentados. 


Pixel en color tinta 


Pixel en color de fondo 


El microordenador busca esta información en la memoria ROM, en la que 
están almacenadas ocho posiciones de información por cada carácter. 
Cada una de estas posiciones, compuestas de 8 bits (un byte), define una 
línea horizontal del carácter. 


Podemos, entonces, obtener un carácter a partir de una red de 8 X 8 cua- 
dritos, ennegreciendo los que corresponden a los pixels en color de tinta 
de un carácter determinado. 
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128: 64 32 16 8 4 A 1 
Una porción de información $ 
(8 bits= 1 byte) 


Un carácter queda definido por una sucesión de 8 bytes, o sea, 8 X 8 bits, correspon- 
dientes a 64 pixels. 


En esta figura, que representa la letra A (muy aumentada), los números 
que se encuentran encima de cada columna corresponden al valor de cada 
bit, expresado en base decimal; y los números situados del lado derecho 
son el resultado de sumar los valores de los bits conectados, en cada fila. 


2. Cómo modificar un carácter 


e En muchos microordenadores la parte de la memoria que almacena la ¡n- 
formación relacionada con la forma de los caracteres es accesible al usua- 
rio. 


Aunque normalmente el microordenador recibe la información sobre la 
forma de los caracteres de una parte de la memoria ROM, llamada gene- 
rador de caracteres, a veces es posible trasladar toda o una parte de ésta 
a la memoria RAM, y entonces el usuario puede modificarla a voluntad. 


Incluso, algunos microordenadores almacenan automáticamente, al ser co- 
nectados, una parte del generador de caracteres en la memoria RAM. 


e Para definir nuevos caracteres se utiliza la instrucción POKE, la cual puede 
definir nuevas estructuras en la memoria RAM mediante números, expre- 
sados en base decimal a partir de una cierta dirección de memoria. 


A este respecto es necesario señalar que durante el proceso de definición 
de un nuevo carácter el primitivo se pierde y el definido por el usuario 
ocupa su zona de memoria con las características específicas que el usuario 
quiso adjudicarle. La forma del nuevo carácter se puede observar hacién- 
dole aparecer en pantalla mediante instrucciones PRINT. 
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Veamos cómo se lleva a cabo el proceso de definición de un carácter en el 
microordenador ZX Spectrum. Este copia automáticamente en la parte 
superior de su mapa de memoria RAM las estructuras de las letras mayús- 
culas del abecedario (*). 
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ZONA DE LA MEMORIA RESERVADA 
PARA LA DEFINICIÓN DE GRÁFICOS 
POR EL USUARIO. 


Previamente es necesario conocer la posición de la memoria (su dirección), 
en la que se inicializará el almacenamiento del primer carácter definido por 
el usuario. Esto se consigue mediante la instrucción USR. Por ejemplo, USR 
“A” da la dirección de la memoria correspondiente al primer byte de los 
ocho que definen el carácter A. Así, el programa 


10 FOR|=0T07 
20 PRINT PEEK USR “A” + | 
30 NEXT | 


proporciona ocho números, expresados en base decimal, correspondientes 
a las direcciones de los ocho bytes que definen la letra A. 


En otros microordenadores hay que consultar en el manual la dirección en 
la que comienza la zona de la memoria reservada a la definición de carac- 
teres por el usuario. 


(*) Estos caracteres aparecen en la pantalla del ZX Spectrum cuando se coloca en 
modo gráfico (en este modo aparece una G en el cursor). 
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Una cucaracha móvil 


Si en lugar de una A deseamos almacenar en su propia zona una pequeña 
cucaracha, escribiremos este conjunto de instrucciones: 


LET M = USR “A” 
FOR|=0T0 7 
READ B 

POKE M + 1, B 
NEXT | 


DATA 12, 45, 30, 30, 30, 30, 45, 0 


Una vez pulsadas RUN y ENTER la instrucción POKE va colocando en las 
posiciones de la memoria identificadas por las direcciones M los valores co- 
rrespondientes a los diversos valores que producen el cambio de carácter. 
Estos valores están guardados en la instrucción DATA. 


La figura almacenada es la siguiente: 


128 64 32 16 8 4 2 1 


Esta figura se puede visualizar en la pantalla escribiendo PRINT A, estando 
el microordenador ZX Spectrum en modo gráfico. 
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Si añadimos el siguiente conjunto de instrucciones conseguiremos que esta 
cucaracha se desplace por la pantalla: 


FOR X = OTO 21 

FOR Y = 21 TO 1 STEP -1 
PRINT AT Y, X; “A” 
PAUSE 10 

PRINT AT Y, X, ”” 


NEXT Y 
NEXT X 


Dibujo de un muñeco 


Cambiando los valores de la instrucción DATA se pueden definir otras fi- 
guras. Así, poniendo 


50 DATA 28, 28, 28, 8, 62, 8, 20, 20, 34 
se obtiene un muñeco pequeño. 


Dibujo de diferentes tipos de invasores 
En forma análoga, poniendo 


50 
50 
50 
50 


DATA 18, 51, 51, 63, 63, 30, 12,0 
DATA 30, 63, 60, 56, 60, 63, 30, 0 
DATA 12, 30, 63, 63, 51, 51, 18, 0 
DATA 30, 63, 15, 7, 15, 63, 30, 0 


se obtienen diferentes tipos de invasores, apuntando cada uno para un 


lado. 


3. Una pelota rebotando 


e El programa siguiente define en la letra A una pelota, que mediante las 
instrucciones siguientes se hará rebotar en los cuatro bordes de la pantalla. 
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RANDOMIZE 
LET M = USR “A” 
FORI=0T07 
READ B 
POKE M + |, B 
NEXT | 
DATA 30, 63, 63, 63, 63, 30, 0 
LET XB = 2 : LET XH = 32 
LET YB = 2 : LET YH = 22 
LET XP = XB + INT (RND * 6) + 1: LET YP = YB + INT 
(RND x 6) + 1 
100 LETVX = 1: LET VY = 1 
110 IFXP<XB + 1 OR XP > XH — 1 THEN LET VX = —VX : 
GO TO 160 
120 IF YP < YB + 1.0R YP > YH — 1 THEN LET VY = —VY : 
GO TO 160 
130 PRINT AT YP, XP; “A” 
140 PAUSE 10 
150 PRINT AT YP, XP; ” ” 
160 LETXP = XP + VX : LET YP = YP + VY 
170 GOTO 110 


Las instrucciones 10 a 60 definen la pelota, colocándola en la letra A. 


Las instrucciones 70-80 definen los límites de la pantalla; la instrucción 90 
establece, en combinación con la 5, un punto de partida XP, YP aleatorio, 
y la 100 el valor con que incrementarán XP e YP en la instrucción 160. 


Las instrucciones 110 y 120 comprueban si se ha llegado al borde de la 
pantalla; si esto ocurre cambian de signo el valor de VX y VY. 


Finalmente, la instrucción 130 imprime en la pantalla la pelota, la 140 es- 
tablece un tiempo de espera y la 150 imprime, en el lugar en el que se en- 
contraba la pelota, un espacio en blanco que simulará el movimiento. 


4. Manejo de la instrucción inkey$. Pulgarcito 

e El programa siguiente, además de definir un pequeño hombrecito en la le- 
tra A, permite desplazarlo por medio del teclado e incluso consigue que 
deje un rastro de puntos tras él. 
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Se utiliza para esto la instrucción INKEY$, que permite la lectura del te- 
clado para analizar qué tecla se está pulsando en un momento determi- 
nado, sin que el programa por ello se detenga. 


El carácter correspondiente a la tecla pulsada puede almacenarse en una 
variable de cadena. 


LET M = USR “A” 
FOR|=0T07 

READ Q 

POKE M +1,Q 

NEXT | 

DATA 28, 28, 28, 8, 62, 8, 20, 34 
LETX = 10: LETY = 10 

LET C$ = INKEY$ : IF C$ < > ” ” THEN GOTO 160 
PRINT AT Y, X; “A” 

PAUSE 10 

PRINT AT Y, X; ” ” 

GOTO 110 


IF C$ = “5” AND X > 0 THEN LET X= X — 1 
IF C$ = “8” AND X < 31 THEN LETX =X + 1 
IF C$ = “6” AND Y < 21 THEN LET Y = Y + 1 
IF C$ = “7” AND Y > 0 THEN LET Y = Y — 1 
GO TO 110 


Las instrucciones 10 a 60 definen en la letra A un hombrecito, que se coloca 
en el punto X = 10, Y = 10. 


La instrucción 110 lee el teclado y almacena el carácter leído en C$. 
Las instrucciones 120 a 130 imprimen el carácter en movimiento. 


Las instrucciones 160 a 190 varían las coordenadas para realizar los dife- 
rentes desplazamientos (*) y comprueban si se ha llegado a algún borde 
de la pantalla. En este caso no permiten el desplazamiento. 


-(*) En el ZX Spectrum en las teclas correspondientes al 5, 8, 6 y 7 están las flechas 
que indican los sentidos de desplazamiento del cursor. 
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5. Combinación de diferentes caracteres definidos 


e Combinando varios caracteres definidos se pueden obtener figuras de 
mayor tamaño que los simples caracteres individuales. 


Construcción de un invasor extraterrestre 


El programa siguiente define cuatro caracteres que, combinados, producen 
un personaje extraterrestre de mayor tamaño, con las características ¡lus- 
tradas en esta figura. 


128 64 32 16 8 4 128 64 32 16 8 4 


13 
29 
29 
15 
14 

3 


128 64 32 16 8 4 1 128 64 32 16 8 4 


63 
47 
39 
39 
34 
34 
54 
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FOR|=0T0 7 
READ X 

POKE USR “A” + Il, X 
NEXT | 


FOR | =0T0 7 
READ Y 

POKE USR “B” + |, Y 
NEXT | 


FOR | = 0107 
READ Z 

POKE USR *C” + 1, Z 
NEXT | 


FOR|=0T0 7 
READ T 

POKE USR ”D” + 1, T 
NEXT | 


DATA O, 3, 15, 29, 29, 15, 14, 3 

DATA 0, 192, 240, 184, 184, 240, 112, 192 
DATA 7, 63, 47, 39, 39, 34, 34, 54 

DATA 224, 212, 244, 228, 228, 68, 68, 108 


Estos cuatro nuevos caracteres definidos se pueden mover vertical y conjunta- 
mente en la pantalla, añadiendo las siguientes instrucciones: 


FOR Y = 1 TO 20 STEP 2 

PRINT AT Y, 1; “AB AB AB AB AB AB AB” 
PRINT AT Y + 1, 1; “CD CD CD CD CD CD CD” 
PAUSE 20 

PRINT AT Y, 1; ” ” 


PRINTATY +1,1;*%” 
NEXT Y 
GOTO 700 
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Barcos, aviones y cohetes 


e Mediante un programa más breve que el anterior se puede conseguir que 
el siguiente barco, formado por cinco caracteres definidos, se desplace 
también por la pantalla. 


1286432168 4 2 1 


248 0 
233. 8 
254 16 
255 48 


253 
233 
233 
235 


FORP =0T04 

LET M = USR “A” + Px*8 
FOR|=0T0 7 

READ Q 

POKE M +1, Q 

NEXT | 

NEXT P 


DATA 0, 0, 0, 0, 0, 1, 1, 13 

DATA 0, 128, 192, 192, 192, 224, 224, 224 
DATA 3,3, 15, 31, 255, 127, 63, 31 

DATA 248, 253, 254, 255, 255, 255, 255, 255 
DATA O, 8, 16, 48, 255, 254, 254, 252 
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Este conjunto de instrucciones va modificando los cinco caracteres A, B, C, 
D y E, según se ejecuta el bucle 10-70, desde P = 0 a 4, y que están al- 
macenados en la memoria en posiciones consecutivas. 


Si, además, añadimos las instrucciones 


FOR X = 0 TO 28 
PRINT AT 10, X; “AB” 
PRINT AT 11, X; “DEF” 
PAUSE 10 

PRINT AT 10,X;% ” 


PRINTAT 11,X;% ” 


conseguiremos que el barco se desplace horizontalmente por la pantalla. 


e En forma análoga podemos definir un avión, y desplazarlo horizontalmente 
por la pantalla 


FORP =0T0O 2 

LET M = USR “A” +Px8 
FORI=0T0 7 

READ Q 

POKE M +1,Q 

NEXT | 

NEXT P 

DATA 48, 56, 28, 63, 59, 54, 1, 3 
DATA 0, 0, 0, 63, 31, 62, 60, 48 


DATA 0, 0, 0, 62, 31, 62, 0, 0 
FOR X = O TO 28 

PRINT AT 10, X; “ABC” 
PAUSE 10 

NEXT X 

GO TO 200 


88 


e Si deseamos, también podemos definir un cohete y desplazarlo vertical- 
mente por la pantalla, de abajo hacia arriba. 


FORP =0T0O 1 
LET M = USR “A” +Px*8 

30 FOR|I=0T07 

40 READQ 

50 POKEM+1,Q 

60 NEXT | 

70 NEXTP 
100 DATA 12, 30, 45, 63, 63, 30, 12, 0 
110 DATA 12, 30, 30, 30, 30, 12, 12, 0 
200 FOR Y = 20 TO 2 STEP -1 
210 PRINT AT Y, 15; “A” 
220 PRINTAT Y + 1, 15; “B” 
230 PAUSE 10 
240 PRINTATY +1,15;” ” 
250 PRINTATY + 1,15; ” ” 
260 NEXT Y 
GOTO 200 


128643216 8 4 2 1 DECIMAL 
129 
153 
189 
153 
66 
60 
60 
60 


6. El esforzado gimnasta 


e Redefiniremos los cuatro caracteres 
A, B, € y D, y los combinaremos ade- 
cuadamente para simular un cierto 
movimiento. 


Los dos primeros caracteres definidos 
presentan a un hombre con los bra- 
zos levantados. A 
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Los otros dos caracteres definidos re- 128643216 8 4 2 1 DECIMAL 


presentan un hombre con los brazos | | | | | [IT] o 
caídos. LS HUME. 
l-] 60 


Imprimiendo estos cuatro caracteres sucesivamente, conseguiremos la si- 
mulación de un movimiento gimnástico. 


10 FORP=0T0 3 

20 LETM= USR”“A” +Px8 
30 FORI|=0T07 

40 READQ 

50 POKEM+1,Q 

60 NEXT | 

70 NEXT P 


100 DATA 129, 153, 189, 153, 66, 60, 60, 60 
110 DATA 60, 60, 36, 36, 66, 66, 195, 0 

120 DATA, 24, 60, 24, 0, 126, 189, 189 
130 DATA 189, 189, 36, 36, 36, 36, 102, 0 
200 PRINT AT 11, 16; “A” 

210 PRINT AT 12, 16; “B” 

220 PAUSE 20 

230 PRINT AT 11, 16; “C” 

240 PRINT AT 12, 16; “D” 

250 PAUSE 50 
GOTO 200 
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nn KK KK K—K—<áÁ 


6. Colores y atributos 
1. Colores en la pantalla 


e Si después de conectar el microordenador tecleamos: 
BORDER O ENTER 
observamos que el borde de la pantalla se pone de color negro. 


=+ -——--0 [negro] 


0 OK, 0:1 


Esto se debe a que la pantalla está dividida en dos zonas: el borde y el 
rectángulo de impresión, que está formado por 22 filas y 32 columnas, 
las cuales dan lugar a 22 X 32 = 704 posiciones para imprimir caracteres. 


El borde de la pantalla se puede poner en cualquiera de los ocho colores 
disponibles que posee el microordenador, tecleando los números corres- 
pondientes después de BORDER . 


NEGRO 
AZUL 

ROJO 
MAGENTA 
VERDE 

AZUL CLARO 
AMARILLO 
BLANCO 


Y Mi UN fa UN —= O 


Por ejemplo, para poner el borde de color 4 (verde) basta con teclear 
BORDER 4 ENTER 
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rad 


Como se ha visto anteriormente el rectángulo de impresión está dividido 
en 704 posiciones, y en cada una de ellas se pueden imprimir caracteres. 
Cada carácter se imprime sobre un cuadrado de 8 x 8 puntos. Por ejem- 
plo, la letra A se imprime de la siguiente forma: 


En cada posición de carácter se distinguen los colores: 


— el del primer plano o tinta (color del carácter que se imprime) y 
— el del fondo o papel. 


Al conectar el microordenador, el color de la tinta es O (negro) y el del pa- 
pel, 7 (blanco). Para variar el color de la tinta y el papel se utilizan las ins- 
trucciones INK y PAPER, respectivamente. 


Si tecleamos: 


INK- 2 ENTER 
PAPER 6 ENTER 


todo lo que se imprima a continuación aparecerá con tinta 2 (rojo) y papel 
6 (amarillo). 


Si, por ejemplo, tecleamos: 

PRINT “BUENOS DIAS” ENTER 
aparece esta frase con los colores que habíamos determinado. 
Observación: Si a continuación tecleamos ENTER, al comenzar una 


nueva pantalla todo el rectángulo de impresión se pone del color del papel 
(en el ejemplo, 6 (amarillo)). 


Colores en un programa 


Las instrucciones INK y PAPER se pueden utilizar dentro de un programa. 
Por ejemplo, al ejecutar este programa 


92 


PAPER 6 

PRINT “HOLA” 

PRINT PAPER 0; INK 7; “LLLLLLL” 
PRINT “ADIOS” 

PAPER 7 


se obtiene lo siguiente en la pantalla: 


— HOLA sobre papel de color 6 (amarillo). 
— LLLLLLL sobre papel de color O (negro) con tinta de color 7 (blanco). 
— ADIOS sobre papel de color 6 (amarillo). 


Observaciones sobre este programa 


— La instrucción 10 PAPER 6 obliga a que todo lo que se imprima a con- 
tinuación sea con papel de color 6 (amarillo), hasta que por medio de 
otra instrucción PAPER se cambie el color del papel. 


— Como consecuencia de esta instrucción 10 PAPER 6 las palabras 
“HOLA” y “ADIOS”, de las instrucciones 20 y 40, se imprimen sobre 
papel 6 (amarillo). 


— En la instrucción 30 se ha especificado el color del papel y el de la tinta 
(papel O (negro) y tinta 7 (blanco)), luego la cadena “LLLLLLL” se im- 
prime con estos colores de papel y tinta. Es decir, PAPER e INK se 
pueden utilizar en una instrucción PRINT, seguidos de punto y coma 
(:), afectando únicamente a esta instrucción. 


— La instrucción 50 PAPER 7, que pone el color del papel 7 (blanco), que 
es el normal, sirve para que después de ejecutar el programa el papel 
vuelva a su color normal. Si no se añade esta instrucción el papel que- 
daría de color 6 (amarillo), debido a la instrucción 10 PAPER 6. 


1. Hacer un programa que imprima la palabra “COLORES” en colores 
de O a 7 (el 7 (blanco) no aparecerá por ser el color del papel o co- 
lor de fondo). 
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Solución 
10 FORI=0T07 
20 PRINT INK l; “COLORES” 
30 NEXT | 


2. Hacer un programa que imprima la frase “EL PAPEL ES DE COLOR” 
con tinta de color normal (0 (negro)) sobre un papel que varía de 
la?7. 


Solución 


10 FORI=1T07 
20 PRINT PAPER l; “EL PAPEL ES DE COLOR” 
30 NEXT! 


3. Hacer un programa que ponga al principio del programa la tinta de 
color 4 (verde), el papel de color 1 (azul) y el borde de color 2 
(rojo). Imprima la frase “ESTOY IMPRIMIENDO EN COLOR”. Y, por 
último, vuelva a los colores normales: tinta, O (negro); papel, 7 

(blanco) y borde, 7 (blanco). 


Solución 
10 INK 4 : PAPER 1 : BORDER 2 


20 PRINT “ESTOY IMPRIMIENDO EN COLOR” 
30 INK O: PAPER 7 : BORDER 7 


3. Colores en la entrada de datos 


e Las instrucciones INK y PAPER seguidas de punto y coma (:) se pueden 
poner en una instrucción INPUT para que el texto entrecomillado en esta 
instrucción aparezca en el color que deseemos. Si no se le indica nada el 
microordenador busca un color que contraste con el color del borde. Al 
ejecutar este programa 


INPUT INK 1; PAPER 4; “NOMBRE”; A$ 
FOR | = 1T0 20 

PRINT AS 

NEXT | 
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aparecerá en las filas inferiores de la pantalla 


NOMBRE] “[L]” 


donde el texto “NOMBRE” de la instrucción INPUT aparece con tinta 1 (azul) 
y papel 4 (verde). 


El dato que debemos introducir aparecerá con los colores normales. 


Colores en alta resolución 


En las instrucciones PLOT, DRAW y CIRCLE también se puede especificar 
el color de la tinta INK y del papel PAPER, seguidos de punto y coma (;). 


Sin embargo, su utilización es problemática, pues al dar color a un pixel se 
da color (de tinta o papel, según corresponda) a toda la posición de carác- 
ter que lo contiene. Luego si en una misma posición de carácter se colorean 
varios pixels todos éstos tomarán el color del último. 


Por ejemplo, si ejecutamos el programa: 


FOR|= 1T0 6 
PLOT O, 2x1 

DRAW INK 1; 255, 0 
NEXT | 


aparecen en la pantalla seis líneas horizontales, que deberían ser cada una 
de un color distinto, desde el 1 (azul) al 6 (amarillo). Sin embargo, en reali- 
dad, las tres inferiores aparecen de color 3 (magenta); esto es debido a 
que las líneas que se trazan desde | = 1 hasta 3 están situadas sobre las 
mismas posiciones de carácter, tomando el color de los pixels de la última 
línea (línea 6). Análogamente sucede con las tres líneas superiores de color 
6 (amarillo). 
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6-amarillo 
AREA AAA AAA AS AA 
astcaaaeaalaaaaaalalej] 
cupra aja 

3-magenta 


CELBLEPPECP OLLE ELE] 
MALE CEA EEE 


COLUMNA O COLUMNA 1 COLUMNA 2 


Si sustituimos la instrucción 10 del programa anterior por: 
10 FOR|=1T07 


añadimos como último color el 7 (blanco, color normal de papel). De este 
modo, las líneas 8, 10, 12 y 14 quedarían en blanco. 


e Cuando se utiliza el color de papel PAPER también hay que tener cuidado, 
pues colorea toda la posición de carácter que contiene al pixel. 


Un programa que pone de manifiesto esta característica es: 


10 PLOT 30, 70 
20 DRAW PAPER 4; 40, 40 
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que al ejecutarlo se obtiene la siguiente pantalla: 


donde se observa que todas las posiciones de caracteres, correspondientes 
a los pixels impresos, han tomado el color 4 (verde). 


4. Hacer un programa que imprima una línea recta del O, O al 100, 
100 de color 6 (amarillo), y a partir de esta última posición trace 
otra recta hasta el pixel (150, 100), con tinta 1 (azul) y papel 5 (azul 
claro). 


Solución 


10 DRAW INK 6; 100, 100 
20 DRAW INK 1; PAPER 5; 50, 0 


5. Escribir un programa que dibuje 6 círculos, de colores del 1 al 6, 
con centro en el pixel 100, 100 y cuyos radios aumenten de 12 en 
12, siendo el primero de radio 10. 


Solución 


10 LETA=0 

20 FORI=1T06 

30 CIRCLE INK |; 100, 100, 10 + A 

40 LETA=A+ 12 

50 NEXT | 

6. Escribir un programa análogo al anterior pero en lugar de que varíe 

el color de la tinta varíe el del papel. (Se coloreará toda posición de 
carácter en que se imprima un pixel.) 


E] 


Solución 


10 LETA=0 

20 FORI=1T06 

30 CIRCLE PAPER l; 100, 100, 10 + A 
40 LETA=A + 12 

50 NEXT | 


5. Atributos 


e Además de los colores se pueden conseguir una serie de efectos en la pan- 
talla como parpadeo, aumento de brillo, inversión de tinta y papel, y so- 
breimpresión. 

Estos efectos se llaman atributos, y son los siguientes: 


FLASH 1 Intermitencia, Va alternando los colores 
parpadeo de tinta y de papel. 

Brillo Aumenta la luminosidad de 
los caracteres. 


Intercambia los colores de 
tinta y papel en los carac- 
teres. 


Imprime sobre un carácter 
sin borrarle (sirve para po- 
ner acento a las vocales). 


BRIGHT 1 


INVERSE 1 


Inverso 


Sobre 


OVER 1 


ú + 


El siguiente programa ilustra estos atributos: 


-. 


10 PRINT FLASH 1; “ESTE-ES EL EFECTO DEL FLASH” 
20 PRINT : 

30 PRINT BRIGHT 1; “BRILLO” 

40 PRINT 

50 PRINT INVERSE 1; “LOS COLORES DE LA TINTA Y EL PAPEL 


ESTAN INVERTIDOS” 
60 PRINTAT20,0;"aeiou” 
70 PRINT AT 20, O; OVER 1; nrrrron 
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Al ejecutarlo obtenemos lo siguiente en la pantalla: 


ESTE ES EL EFECTO DEL FLASH 
BRILLO 


LOS COLORES DE LA TINTA Y EL PAPEL 


ESTAN INVERTIDOS 
aáéiíóú 


— La instrucción 10 imprime la frase ÉSTE ES EL EFECTO DEL FLASH en 
forma intermitente (parpadeo). 


— La instrucción 30 imprime la palabra BRILLO con mayor luminosidad. 


— La instrucción 50 imprime la frase LOS COLORES DE LA TINTA Y EL PA- 
PEL ESTÁN INVERTIDOS, poniendo de manifiesto esta propiedad. 


— La instrucción 60 imprime las vocales a partir de la fila 20, columna 0 y 
la instrucción 70 imprime a partir de esa fila y columna los acentos, sin 
borrar las vocales gracias a la instrucción OVER 1. 


Estos atributos también se pueden utilizar en una instrucción INPUT (ex- 
cepto el atributo OVER), con los mismos efectos que en una instrucción 
PRINT (aunque sólo afectan a los textos). 

Para desactivar los atributos se sustituye el 1 por el 0: 

FLASH 0 desactiva el parpadeo. 

BRIGHTO desactiva el brillo. 

INVERSE O desactiva el inverso. 

OVER 0 desactiva la sobreimpresión. 


Los atributos se pueden utilizar fuera de programas. Por ejemplo, si pro- 
bamos 


FLASH 1 ENTER ENTER todo el rectángulo de impresión parpadeará (*) 


FLASH 0 ENTER ENTER quedará desactivado el parpadeo 

BRIGHT 1 ENTER — ENTER todo el rectángulo de impresión 
brillará. 

BRIGHT 0 ENTER ENTER quedará desactivado el brillo. 


(*) Si sólo se presiona una vez ENTER, el parpadeo y el brillo tendrá efectos parciales 


sobre la pantalla al principio de su activación. 
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Con INVERSE 1 todo lo impreso en pantalla aparecerá con los colores in- 
vertidos hasta que se desactive por medio de INVERSE 0 (si no hay nada 
escrito en la pantalla no se notarán sus efectos). . 


Con OVER 1 no se notan sus efectos hasta que se realice una sobreimpre- 
sión. Sus efectos duran hasta que se desactive por medio de OVER 0. 


Estos atributos se pueden utilizar como instrucciones de un programa, per- 
maneciendo sus efectos aun después de su ejecución, si no se desactivan 
antes. Los atributos afectan a todas las instrucciones PRINT que les sigan, 
pero no afectan a las instrucciones INPUT, pues sus textos entrecomillados 
aparecen en el borde de la pantalla. 


Veamos un programa que tiene en cuenta estas propiedades: 


BRIGHT 1 

INPUT INVERSE 1; “NOMBRE”; A$ 

PRINT “BRILLANTE” 

PRINT BRIGHT 0; FLASH 1; “INTERMITENTE”, A$ 
PRINT “BRILLANTE” 

BRIGHT 0 


— La instrucción 10 BRIGHT 1 activa el brillo y todo lo que se imprima a 
continuación aparecerá brillante (sólo afectará a PRINT). 


— La instrucción 20 pide una cadena para A$, apareciendo invertida la 
palabra “NOMBRE” (el brillo activado en la instrucción 10 no le afecta). 


— Las instrucciones 30 y 50 imprimen la palabra BRILLANTE con brillo. 


— La instrucción 40 desactiva el brillo y activa el parpadeo (sólo en su eje- 
cución; no afecta al resto del programa), en consecuencia, aparecen las 
cadenas INTERMITENTE y la que almacena A$, parpadeantes. 
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YE 


Hacer un programa que imprima veinte veces la frase “EFECTOS ES- 
PECIALES” y tal que si se introduce 


1 se active el FLASH 

2 se active el BRIGHT 

3 se active el INVERSE 

y si se introduce otro número se imprima “EFECTOS ESPECIALES” sin 
más. 

Al final de la ejecución deben quedar desactivados. 


Solución 


10 INPUT “UN NUMERO DEL 1 AL 3"; X 
20 IFX = 1 THEN FLASH 1 

30 IF X = 2 THEN BRIGHT 1 

40 IF X= 3 THEN INVERSE 1 

50 FOR|= 1T0 20 

60 PRINT “EFECTOS ESPECIALES” 

70 NEXT | 

80 FLASH 0: BRIGHT 0: INVERSE 0 


Hacer un programa que recuadre en espacios parpadeantes el rec- 
tángulo de impresión. Rectificarlo para que el recuadro quede inver- 
tido. 


Solución 


10 FLASH 1 
20 PRINT” 


” 


30 FORI|= 1T0 20 

40 PRINT”* ”;AT1,31;% ” 
50 NEXT | 

60 PRINT ” 


70 FLASHO 


Para que el recuadro salga invertido basta con sustituir las instruc- 
ciones 10 y 70 por: 


10  INVERSE 1 
70 INVERSE O 


Elaborar un programa que escriba diez veces la palabra “ÑOÑO” 
utilizando la “N” y el símbolo “—", que se encuentra en la tecla [A]. 
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Solución 


10 FOR|= 1T0O 10 

20 PRINT “NONO” 

30 PRINTATI— 1,0; OVER1;"= = ” 
40 NEXT | 


6. Atributos en alta resolución 


e En las instrucciones PLOT, DRAW y CIRCLE se pueden incluir los atributos 
FLASH y BRIGHT, seguidos de punto y coma (;), y teniendo en cuenta que 
afectan a toda la posición de carácter que contiene al pixel. 


Es importante tener presente que si FLASH o BRIGHT se activan en ins- 
trucciones anteriores a PLOT, DRAW y CIRCLE, no afectan a lo que éstas 
impriman. 


Veamos el siguiente programa como ejemplo: 


FLASH 1 

DRAW 100, 50 

PLOT BRIGHT 1; 90, 90 
DRAW BRIGHT 1; 50, 50 
CIRCLE FLASH 1; 200, 50, 30 


FLASH 0 


Al ejecutar el programa se observa: 


— Las instrucciones 10 y 60 se pueden suprimir, ya que no producen nin- 
gún efecto, pues 10 FLASH 1 no afecta a las instrucciones PLOT, 
DRAW y CIRCLE. 


— La instrucción 20 traza una línea recta del pixel O, O al 100, 50 sin que 
le afecte el FLASH de la instrucción 10. 


— Las instrucciones 30 y 40 trazan una línea recta desde el pixel 90, 90 al 
140, 140 dando brillo a las posiciones de caracteres que contienen a 
los pixels. 
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— La instrucción 50 dibuja una circunferencia con centro en el pixel 200, 
50 de radio 30, y como le acompaña el atributo FLASH 1 las posi- 
ciones de caracteres que contienen a los pixels que forman la circunfe- 
rencia, parpadean. 


e No ocurre lo mismo con los atributos INVERSE y OVER, pues en el interior 
de una instrucción PLOT, DRAW o CIRCLE sólo afecta al pixel correspon- 
diente y no al resto de la posición de carácter que lo contiene. Los efectos 
son los siguientes: 


INVERSE 1; pone el pixel de color papel (es como si bo- 
rrara O no imprimiera). 
OVER 1; cambia el color del pixel (de color papel a 


color tinta o viceversa) según el color que 
tuviera el pixel. 

INVERSE 1; OVER 1; no hace nada, solamente cambia la posi- 
ción donde se imprimió el último pixel. 


El programa siguiente muestra estas propiedades: 


PRINT AT 18, 3; “PPPPP” 
DRAW OVER 1; 255, 175 
CIRCLE 150, 150, 20 

STOP 

CIRCLE INVERSE 1; 150, 150, 20 


PLOT INVERSE 1; OVER 1; 0, 0 
DRAW OVER 1; 255, 175 


— La instrucción 10 imprime la letra p cinco veces (ppppp) a partir de la 
fila 18, columna 3. 


— La instrucción 20 traza una diagonal del pixel O, O al 255, 175 y como 
lleva el atributo OVER 1, al pasar por algún texto impreso, en este 
caso la tercera ”P”, cambia los pixeles de color de tinta a color de pa- 


pel. 


— La instrucción 30 imprime una circunferencia con centro en el pixel 
150, 150 y de radio 20. 


— La instrucción 40 para la ejecución. Si pulsamos CONT y ENTER conti- 
núa la ejecución. 
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— La instrucción 50, al contener INVERSE 1, borra la circunferencia. 


— La instrucción 60 posiciona el último punto impreso en el pixel O, O sin 
marcarlo, debido a INVERSE 1; OVER 1;. 


— La instrucción 70 cambia el color de toda la diagonal, volviéndolo a su 
color original, con lo que la tercera P vuelve a estar completa. 


PROGRAMAS RESUELTOS 


10. Hacer un programa que dibuje circunferencias de centro 100, 100 y 
radios 5, 10, 15, 20, 25, 30 y después las borre una a una. 


Solución 


10 FORR= 5T0O 30 STEP 5 

20 CIRCLE 100, 100, R 

30 + NEXT R 

40. FORR = 5T0O 30 STEP 5 

50 CIRCLE INVERSE 1; 100, 100, R 
60 NEXT R 


11. Hacer un programa que recuadre el rectángulo de impresión con es- 
pacios parpadeantes por medio de instrucciones DRAW, Hacer otro 
programa con espacios brillantes. 


Solución 


Con parpadeo: 


10  DRAW FLASH 1; 255, 0 
20 DRAW FLASH 1; 0, 175 
30 DRAW FLASH 1; -255, 0 
40 DRAW FLASH 1; 0, -175 


Con brillo: 
10 DRAW BRIGHT 1; 255, 0 
20 DRAW BRIGHT 1; 0, 175 


30  DRAW BRIGHT 1; -255, 0 
40 DRAW BRIGHT 1; 0, -175 
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7. Funciones POINT y ATTR 


Estas dos funciones investigan las características de un pixel y de una posición 
carácter, respectivamente. La función POINT (X, Y) investiga si el color del 
pixel de coordenadas X, Y es de tinta o de papel, dando como resultado 1 ó 
0, respectivamente. Es decir, 


si POINT (X, Y) = 1, el pixel X, Y tiene color de tinta; 
si POINT (X, Y) = 0, el pixel X, Y tiene color de papel. 


La función ATTR (F, C) investiga, en la posición de carácter de la fila F y co- 
lumna C, los siguientes atributos: 


— color de la tinta, 
— color del papel, 
— brillo, 
— parpadeo. 
Esta función da un número entre O y 255 de tal forma que: 


— el resto de su división por 8 da el número del color de la tinta; 


— el resto de la división del cociente anterior entre 8 da el número del color 
del papel; 


— el resto de la división del cociente anterior entre 2 indica que hay brillo, si 
el resto vale 1, y que no lo hay si vale 0; 


— el cociente de la división anterior indica que hay parpadeo, si dicho co- 
ciente vale 1, y que no lo hay si vale 0. 
Por ejemplo, ATTR (f, C) = 177 da las siguientes informaciones: 
177 8 
17 22 |8 
Tinta 1 (azul) —— [6] Z 2 
Papel 6 (amarillo) PA [o] > 


Sin brillo 7 Con parpadeo 


8. Resumen 


¿Afectan a estas instrucciones los colores y atributos si se activan entes de su 
ejecución? 
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PRINT INPUT CIRCLE 


EE 
CN 


PAPER 


IN 


¿Afectan a estas instrucciones los colores y atributos si los contienen? 


PRINT INPUT PLOT DRAW CIRCLE 
BORDER NO NO NO NO NO 
INK SI SI SI SI SI 
PAPER SI SI SI SI SI 
FLASH SI SI SI SI SI 
BRIGHT SI SI SI SI SI 
INVERSE SI SI SI SI SI 
OVER SI NO SI SI SI 


PROGRAMAS RESUELTOS 


12. Hacer un programa que vaya poniendo el borde de los distintos co- 
lores, haciendo pausas de 200. 


Solución 
10 FORI=0T07 
20 BORDER | 


30 PAUSE 200 
40 NEXT! 
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13. Hacer un programa que dibuje la bandera de España. 
Solución 


10 PAPER 2 

20 FORI=1T032+*5 
30 PRINT” ”; 

40 NEXT! 

50 PAPER 6 

60 FORI=1T0 32 + 10 
70 PRINT” ”; 

80 NEXT | 

90 PAPER 2 

100 FOR|=1T032*5 
110 PRINT” ”; 

120 NEXT | 

130 PAPER 7 


* 
14. Hacer un programa que dibuje un rectángulo de color verde (papel 
verde) que ocupe las 5 primeras filas y las 8 primeras columnas. 


Solución 


10 FORF=0T04 

20 FORC=0T07 

30 PRINTATF, C; PAPER 4;” ” 
40 NEXT C 

50 NEXT F 


_ + 
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Hacer un programa que dibuje un rectángulo del color que que- 
ramos, a partir de la posición que se indique y cuya base y altura 
también podamos determinar (se debe decidir si se dibujan más rec- 
tángulos, borrando o no la pantalla). 


Solución 
10 INPUT “COLOR (0 - 7)”; CL 
20 INPUT “POSICION INICIAL (FILA Y COLUMNA)”; F1, C1 
30 IFF1 > 21 OR C1 > 31 THEN GO TO 20 
40 INPUT “ALTURA Y BASE”; H, B 
50 IFF1+H> 21 0RC1 + B > 31 THEN GO TO 40 
60 FORF =F1TO F1 + H 
70 FORC=C1TOC1+B 
80 PRINT AT F, C; PAPER CL; “ ” 
90 NEXT C 
100 NEXT F 
110 INPUT “QUIERES DIBUJAR OTRO (S/N)”; A$ 
120 IFA$ = “N” OR A$ = “n” THEN STOP 
130 INPUT “QUIERES BORRAR LA PANTALLA (S/N)”; B$ 
140 IFB$= “S” OR B$ = ”s” THEN CLS 
150 GOTO 10 


Las instrucciones 30 y 50 hacen que el dibujo no se salga de la 
pantalla. 

Con las instrucciones 110-150 se decide si se dibujan otros 
rectángulos y si se borra la pantalla. 


Ejecución 

RUN ENTER 

COLOR (0, 7) 2 ENTER 

POSICION INICIAL (FILA Y COLUMNA 
) 5 ENTER 6 ENTER 

ALTURA Y BASE 10 ENTER 20 ENTER 


[rojo] 
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QUIERES DIBUJAR OTRO (s/n) “s” ENTER 
QUIERES BORRAR LA PANTALLA (S/N) “N” ENTER 
COLOR (0, 7) 1 ENTER 

POSICION INICIAL FILA Y COLUMNA 

) 12 ENTER 15 ENTER 

ALTURA Y BASE 8 ENTER 8 ENTER 


[rojo] 


[azul] 


QUIERES DIBUJAR OTRO (s/n) “N” ENTER 
9 STOP STATEMENT, 120 : 2 


Con lo que termina la ejecución. 


16. Hacer un programa tal que la variable | vaya tomando alternativa- 
mente los valores 1 y O. Si | = 1 el programa debe dibujar las dia- 
gonales de la pantalla y si | = O debe borrarlas. El programa no 
debe tener fin y comenzará con | = 1. 


Solución 


10 
20 
30 
40 
50 
60 
70 


LET | = 1 

PLOT 0, 0 

DRAW 255, 175 

PLOT O, 175 

DRAW 255, -175 

IF. | = 1 THEN INVERSE 1 : LETI| = 0: GOTO 20 
INVERSE 0 : LETI = 1: GOTO 20 


Escribir un programa que dibuje la gráfica de la función seno en co- 
lor rojo. 


Solución 


10 
20 
30 


FOR | = 0 TO 255 
PLOT INK 2; 1, 88 + 41 *SIN (1/128 *PI) 
NEXT | 
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Las escalas en los ejes de abscisas y ordenadas son las mismas, man- 
teniendo la relación 


2m> 256 


de donde 


1> 41 


Los ejes están centrados en el pixel O, 88. 


18. Escribir un programa que dibuje la función seno en color amarillo y 
la función coseno, en color verde. (Observar lo que sucede en las in- 
mediaciones de los puntos de corte.) 


Solución 
10 FOR|=0T0O 255 
20 PLOT INK 6; |, 88 + 41 «SIN (1/128 *PI) 
30 NEXT! 
40 FORI=0TO 255 
50 PLOT INK 4; |, 88 + 41 *COS (1/128 *PI) 
60 NEXT 1 
19. Hacer un programa que dibuje círculos de centro, radio y color va- 
riable. 
Solución 
10 INPUT “CENTRO”; X, Y 
20 INPUT “RADIO”; R 
30 INPUT “COLOR”; C 
40 INKC 
50 FORI=0TOR 
60 CIRCLE X, Y, | 
70 NEXT 1 
80 INPUT “OTRO CIRCULO S/N”; A$ 
90 IFA$= "s" ORA$ = ”S” THEN GO TO 10 
100 INKO 
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7. Música 


1. Algo de música 


e La música consiste fundamentalmente en la producción de ciertas frecuen- 
cias, durante intervalos de tiempo determinados. 


En el mundo occidental, en la composición de piezas musicales se utiliza la 
escala de música tradicional, llamada escala cromática, que se compone 
de doce notas. 


En el teclado de un piano se distinguen dos tipos de teclas: blancas y ne- 
gras. 


El teclado contiene varios grupos de teclas blancas intercaladas con negras. 
Las teclas blancas de cada uno de estos grupos corresponden a las notas 
DO, RE, MI, FA, SOL, LA, SI (en nomenclatura internacional C, D, E, F, G, 
A, D), que constituyen lo que se llama una octava; entre dichas teclas 
blancas se encuentran teclas negras, que corresponden a tonos interme- 
dios (semitonos). Cada semitono se llama sostenido (++), si toma el nom- 
bre de la nota anterior, o bien bemol (B), si adopta el nombre de la nota 
siguiente. Así, el DO sostenido coincide con el RE bemol. 
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2. Representación de la música en el pentagrama 


e Las distintas notas se suelen representar en un diagrama llamado penta- 
grama. Éste contiene una clave, que indica la línea en la cual está situada 
una determinada nota. 


Las claves más frecuentes son la clave de sol y la clave de fa. En un 
pentagrama con clave de SOL, la nota so/ está situada en la segunda línea. 


Clave a 


SOL 


Pentagrama con clave de SOL 


En un pentagrama con clave de FA, la nota FA está situada en la cuarta lí- 
nea (clave de FA en 4.?). 


RE 


A DO 
Clave de 


FA en 4.2 


Pentagrama con clave de FA 
Una pieza musical está caracterizada no solamente por el conjunto de 
notas que la componen, sino también por la duración de cada una de 
ellas, y ésta es la que imprime a la pieza musical un ritmo determinado. 
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La duración de un sonido se indica en el pentagrama utilizando distintos 
tipos de notas, que indicamos a continuación: 


: redonda 

: blanca 

: negra 

: corchea 

: semicorchea 


: fusa 


: semifusa 


La duración más larga corresponde a la redonda, que es la que se toma 
como referencia. Así, la duración de 


— una blanca es la mitad que la de una redonda; luego una redonda 
equivale a dos blancas; 


— Una negra es la mitad de una blanca; luego una blanca equivale a dos 
negras; 


— etcétera. 


Según indica el esquema, 1 nota redonda equivale a 2 blancas, a 4 negras, 
a 8 corcheas, a 16 semicorcheas, a 32 fusas y a 64 semifusas. 


Además de los sonidos y su duración, en una pieza musical intervienen 
también pausas o silencios; éstos contribuyen también a crear el ritmo de 
la composición musical. 


La música en los microordenadores 


Los microordenadores con posibilidades musicales pueden controlar como 
mínimo la frecuencia de los sonidos (altura de las notas) y la duración de 
las mismas. Esto se consigue en el microordenador ZX Spectrum por medio 
de la instrucción 


BEEP d, n 


siendo d y n valores numéricos que corresponden a la duración y a la al- 
tura de la nota, respectivamente. 


La duración d de una nota puede variar entre 0,00125 y 10 segundos. 
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La altura de una nota se indica con un número comprendido entre -60 y 
69. Los números del O al 11, corresponden a las alturas de las notas de la 
escala cromática. 


LA SI DO RE MI FA SOL LA SI 
ÑK_ ===" KA 


Escala cromática 


e Por el siguiente programa aplicamos la instrucción BEEP para generar la 
escala cromática veinte veces. 


FOR N = 1T0 28 
FORP =0T0 11 
BEEP 0.25, P 
NEXT P 

PAUSE 25 


NEXT N 


Cada nota emitida adquiere una duración de 0.25 segundos. 


La instrucción 50 PAUSE 25 introduce una pausa de medio segundo entre 
dos escalas consecutivas (*). 


e Una octava sin semitonos puede generarse mediante este otro programa 
en el que la instrucción 70 reestablece el archivo situado en la instrucción 


(*) Para conseguir un mayor volumen de sonido conectar la salida EAR del ZX Spec- 
trum con la entrada MIC de un casete y presionar PLAY. Esta conexión se puede 
hacer con el cable que sirve para grabar y reproducir programas. 
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100; esta instrucción contiene los números correspondientes a las notas DO, 
RE, MI, FA, SOL, LA, SI, DO. 


FOR N = 1T0 12 
FOR | =1T08 
READ P 

BEEP 0.25, P 
NEXT | 


PAUSE 25 

RESTORE 

NEXT N 

DATA 0, 2, 4, 5, 7, 9, 11, 12 


También aquí cada sonido producido por la instrucción 40 dura 0.25 se- 
gundos. 


Este programa repite la escala doce veces (10 FOR N = 1 TO 12). 


PROGRAMAS RESUELTOS 


1. Hacer un programa que genere las tres escalas cromáticas represen- 
tadas en el teclado de la figura. Introducir una pausa de 2 segundos 
entre cada escala. 


10 REM TRES ESCALAS CROMATICAS 

20 FORN = -12 TO 23 

30 BEEP 0.30, N 

40 IFN=-10RN = 11 THEN PAUSE 100 
50 NEXT N 


e. el .. .. 22. | 


DO A MI FA SOLLA SI cad paar RE MI FA SOL LA SI e RE MI FA SOL LA SI 


md 5 0 


Solución 
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— A cada nota se le ha dado una duración de 0.30 segundos (ins- 
trucción 30). 


— La instrucción 40 introduce la pausa de 2 segundos, aproximada- 
mente, entre dos escalas sucesivas. 


En el pentagrama, cada nota va acompañada del número-que hay 
que poner en la instrucción BEEP para que sea generada. Elaborar 
un programa que reproduzca dichas notas, introduciendo entre las 
dos escalas una pausa de 2 segundos. 


DO PAUSA 


Solución 


10 REM DOS ESCALAS 

20 FORI|=0TO 14 

30 READ N 

40 BEEP 0.40, N 

50 IFN = 11 THEN PAUSE 100 

60 NEXT 1 

70 DATAO, 2, 4, 5,7, 9, 11, 12, 14, 16, 17, 19, 21, 23 


— En este programa, a cada nota se le ha dado una duración de 
0.40 segundos (instrucción 40). 


— Los valores de las notas de las dos escalas se encuentran en la 
instrucción 70 DATA. 


4. Cómo convertir el teclado del microordenador 
en un «teclado de órgano» 


e El programa que transcribimos a continuación transforma parte del 
teclado del microordenador en parte del teclado de un órgano. 


Una vez cargado este programa en la memoria, si se ejecuta (pulsar 
RUN y ENTER) se puede interpretar la melodía de algunas canciones 
con las teclas de las dos filas superiores del teclado. 
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LET A$ = INKEYS 

LET P = 0.75 

“Q” THEN BEEP P, 0 
“2” THEN BEEP P, 1 
“W” THEN BEEP P, 2 
“3 THEN BEEP P, 3 
“E” THEN BEEP P, 4 
“R” THEN BEEP P, 5 
“5” THEN BEEP P, 6 
“T” THEN BEEP P, 7 
“6” THEN BEEP P, 8 
Y” THEN BEEP P, 9 
IF A$ = “7” THEN BEEP P, 10 
IF A$ = “U” THEN BEEP P, 11 
IF AS = “1” THEN BEEP P, 12 
GOTO 10 


IF AS = 
IFA 
IFA 
IFA 
IFA 
IFA 


IFA 
IFA 
IFA 


4 E Y E EN EN UN UA 


— 
> 
DES 


— La instrucción 10 lee el teclado, y el carácter de la tecla pulsada se 
almacena en A$, de tal manera que si en el momento de la ejecu- 
ción se pulsa, por ejemplo la letra Q (instrucción 30 IF A$ = “Q” 
THEN BEEP P, 0), se genera la nota correspondiente al número 0, 
o sea, la nota DO, con una duración de 0.75 segundos. 


— Las instrucciones 30 a 150 hacen que al pulsar las teclas Q, 2, W, 
3, E,R, 5, T, 6, Y, 7, U, |, se genere la escala cromática de un ór- 
gano. 


DOF REF FAF SOL LA+ 


Qi 


[CN PEA HEN PES PIE JUE ER E 


FA SOL LA 


Se puede ampliar este teclado añadiendo instrucciones al programa, a 
efectos de conseguir notas más graves (con números menores que 0), 
y notas más agudas (con números mayores que 12). Para ello, con- 
viene tener en cuenta que entre las notas MI y FA no existe semitono, 
lo mismo que entre las notas Sl y DO. 
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PROGRAMAS RESUELTOS 


3. Convertir el teclado del microordenador en teclado de órgano de tal 
manera que permita tocar dos escalas acromáticas completas. Asig- 
nar a las dos filas inferiores la escala más baja 


ata 


DOF REF FAF SOL LAF DOF 


A AO MEP a) Ea 


DO RE MI FA SOL LA 


a a 00 (ad (a 1 a a] 


DOF REX FA%+ SOL+ LA+ 


2] 29 (9 Y E Q Md 121 EJ 


DO RE MI FA SOL LA SI 


Solución 


5 REM TECLADO DE ORGANO CON DOS ESCALAS 

ACROMATICAS SEGUIDAS 

10 LET AS = INKEY$ 

20 LETP =0.75 

30 IF AS = “Z” THEN BEEP P, 0 

40 IFA$ = ”S” THEN BEEP P, 1 

50 IFA$ = “X” THEN BEEP P, 2 

60 IF A$ = “D” THEN BEEP P, 3 

70 IF A$ = “C” THEN BEEP P, 4 

80 IFA$ = “Y” THEN BEEP P, 5 

90 IF AS = “G” THEN BEEP P, 6 
100 IF AS = “B” THEN BEEP P, 7 
110 IF A$ = “H” THEN BEEP P, 8 
120 IFA$ = “N” THEN BEEP P, 9 
130 IFA$ = ”J” THEN BEEP P, 10 
140 IFA$ = “M” THEN BEEP P, 11 
150 IF A$ = “Q” THEN BEEP P, 12 
160 IF A$ = “2” THEN BEEP P, 13 
170 IFA$ = "W” THEN BEEP P, 14 
180 IFA$ = “3” THEN BEEP P, 15 
190 IF A$ = “E” THEN BEEP P, 16 
200 IF AS = “R” THEN BEEP P, 17 
210 IFA$ = “5” THEN BEEP P, 18 
220 IF AS = "T” THEN BEEP P, 19 
230 IF AS = “6” THEN BEEP P, 20 
240 IF AS = “Y” THEN BEEP P, 21 
250 IF A$ = ”7” THEN BEEP P, 22 
260 IF A$ = “U” THEN BEEP P, 23 
270 GOTO 10 
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— La escala más grave se consigue interpretar con las teclas de las 
dos filas inferiores (instrucciones 30 a 140). 


—- La escala más aguda se consigue interpretar con las teclas de las 
dos filas superiores (instrucciones 150 a 260). 
5. Un programa que reproduce una melodía 


e Si se ejecuta el siguiente programa (pulsar RUN y ENTER) se obtiene una 
melodía que recuerda en algo la canción popular mexicana Cielito lindo. 


5 REM CIELITO LINDO 
10 INPUT “INTRODUCE EL NUMERO DE NOTAS”; N 
20 FORI=1TON 
30 READ L 
40 BEEP 0.40, L 
50 NEXT I 
70. DATA. 12, 12,9, 11, 7, 12, 9, 11,7, 12, 12,2 11, 7,3, 2,2, 


MV 151 

80 DATA 11,9, 7,5, 2,2,4, 3, 1,7,7, 7,7, 5, 4, 2,0, 16, 14, 12, 
9, 9, 14, 14, 12 

90 DATA 16, 12, 12, 7,9, 7,9, 9, 7,12, 17, 14, 14, 11, 7, 11, 1, 
9,9, 7, 5,4, 2, 0,0 


Antes de ejecutar este programa hay que contar el número de notas que 
componen la melodía; este número coincide con el número de datos in- 
cluidos en todas las instrucciones DATA (70, en este ejmplo). 


Para escuchar la melodía hay que ejecutar el programa (pulsar RUN y ENTER) 
y, a continuación, introducir el valor 70 para N. 


6. Melodías con ritmo 


e Si se ha ejecutado el programa anterior se ha podido comprobar que la 
melodía carecía de todo ritmo. Esto es debido a que todas las notas sue- 
nan durante el mismo tiempo (0.40 segundos). 


Para conseguir que el microordenador interprete una melodía con ritmo, es 
necesario asignar a cada nota la duración que le corresponda en la melo- 
día. Esto se consigue haciendo una pequeña modificación en el programa 
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anterior, introduciendo una nueva variabe D, que controla la duración de 
cada nota. 


5 REM CIELITO LINDO CON RITMO 

10 INPUT “INTRODUCE EL NUMERO DE NOTAS”; N 

20 FORI=1TON 

30 READD,L 

40 BEEPD,L 

50 NEXT | 

60 DATA 0.4, 12, 0.4, 12, 0.4, 9, 0.8, 11, 0.4, 7, 0.4, 12, 0.4, 12, 
0.4, 9, 0.8, 11, 0.4, 7 

70 DATA 0.4, 12, 0.4, 12, 0.4, 9, 0.8, 11, 0.4, 7, 0.4, 5, 1.6, 2, 
0.4, 11, 0.4, 11, 0.4, 11 

80 DATA 0.8, 11, 0.4, 9, 0.4, 7, 0.4, 5, 0.8, 2, 0.4, 4, 0.4, 5, 0.4, 
7,0.4,7,0.4,7,0.8,7, 0.4, 5,0.4, 4 

90 DATA 0.4, 2, 1.6, 0, 1.2, 16, 0.8, 14, 0.4, 12, 2, 9 

100 DATA 1.2, 14, 0.8, 14, 0.4, 12, 0.4, 16, 1.6, 12, 0.4, 7 

110 DATA 0.8, 9, 0.4, 7, 0.4, 9, 0.4, 9, 0.4, 7, 0.4, 17, 0.4, 17, 0.8, 
14, 0.4, 11, 0.4, 7 

120 DATA 0.4, 11, 0.4, 11, 0.8, 9, 0.4, 7, 0.4, 5, 0.2, 4, 0.2, 2, 1.2, 
0 


En las instrucciones DATA a cada número indicativo de cada nota precede 
otro número (0.4, 0.8, etc.) que da la duración de la misma en décimas de 
segundo. 

Si se ejecuta este programa (pulsar RUN y ENTER) se comprueba que in- 
terpreta la melodía de Cielito lindo con el ritmo que le corresponde, me- 
jorando considerablemente la interpretación anterior. 

Este mismo programa puede reproducir otras melodías, modificando las 
instrucciones DATA, tal como se puede comprobar en los siguientes ejem- 
plos. 

Noche de paz, de Franz Gruber 

DATA 0.6, 7, 0.2, 9, 0.4, 7, 1.2, 4, 0.6, 7, 0.2, 9, 0.4, 7, 1.2, 4, 0.8, 14, 0.4, 
14,1.2,11 

DATA 0.8, 12, 0.4, 12, 1.2, 7, 0.8, 9, 0.4, 9, 0.6, 12, 0.2, 11, 0.4, 9, 0.6, 
7, 0.2, 9, 0.4, 7, 1.2, 4 

DATA 0.8, 9, 0.4, 9, 0.6, 12, 0.2, 11, 0.4, 9, 0.6, 7, 0.2, 9, 0.4, 7, 1.2, 4, 
0.8, 14, 0.4, 16, 0.6, 17, 0.2, 14, 0.4, 11 

DATA 1.2, 12, 1.2, 16, 0.6, 12, 0.2, 7, 0.4, 4, 0.6, 7, 0.2, 5, 0.4, 2, 1.6, 
0 
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e Canción de cuna, de J. Brahms 


DATA 0.2, 4, 0.2, 4, 0.8, 7, 0.2, 4, 0.2, 4, 0.8, 7, 0.2, 4, 0.2, 7, 0.4, 
12, 0.6, 11, 0.2, 9 

DATA 0.4, 9, 0.4, 7, 0.2, 2, 0.2, 4, 0.4, 5, 0.4, 2, 0.2, 2, 0.2, 4, 0.8, 
5, 0.2, 2, 0.2, 5, 0.2, 11, 0.2, 9, 0.4, 7, 0.4, 11 

DATA 0:8, 12, 0.2, 0, 0.2, 0, 0.8, 12, 0.2, 9, 0.2, 5, 0.8, 7, 0.2, 4, 
0.2, 0, 0.4, 5, 0.4, 7, 0.4, 9 

DATA 0.4, 4, 0.4, 7, 0.2, 0, 0.2, 0, 0.8, 12, 0.2, 9, 0.2, 5, 0,8, 7, 
0.2, 4, 0.2, 0, 0.2, 5, 0.1, 7, 0.1, 5, 0.4, 4, 0.4, 2, 0.8, 0 


e A coger el trébole (popular) 


DATA 0,3, 11, 0.1, 12, 0.2, 14, 0.2, 16, 0.3, 16, 0.1, 14, 0.2, 11, 
0.2, 14, 0.3, 14, 0.1, 12, 0.8, 9, 0.2, 12 

DATA 0.2, 16, 0.2, 16, 0.4, 14, 0.3, 11, 0.1, 12, 0.2, 14, 0.2, 16, 
0.3, 16, 0.1, 14, 0.2, 11, 0.8, 14, 0.3, 14, 0.1, 12, 0.2, 9, 0.2, 12 
DATA 1.2, 11, 0.3, 1, 0.1, 12, 0.2, 16, 03, 16, 0.1, 14, 0.2, 11, 
0.2, 14, 0.3, 14, 0.1, 12, 0.2, 9, 0.2, 12, 0.2, 16, 0.2, 16, 0.4, 14 
DATA 0.3, 11, 0.1, 12, 0.2, 14, 0.2, 16, 0.3, 16, 0.1, 14, 0.2, 11, 
0.2, 14, 0.3, 14, 0.1, 12, 0.4, 9, 0.4, 12, 0.4, 11 


7. Cómo pasar la música de un pentagrama al microordenador 


e Para pasar la música escrita en un pentagrama a la memoria del microor- 
denador no hay que saber teoría musical. Solamente es necesario tener en 
cuenta unas pocas reglas, que expondremos a continuación, eligiendo 
como ejemplo la popular melodía de Cumpleaños feliz. 


Solemne 
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e Reglas 


1. Se identifica cada nota teniendo en cuenta la clave que figura al 
principio del pentagrama. 


En este ejemplo, como clave es de SOL, esta nota se encuentra en la 
2.* línea. Luego la melodía empieza con la nota RE. 


2. Se asigna a cada nota su número correspondiente. 


El símbolo + (sostenido) que aparece en la 5.? línea (nota FA) al prin- 
cipio del pentagrama, indica que todas las notas FA que se encuentran 
en el pentagrama son sostenidos; les corresponderán entonces el nú- 
mero 6, en lugar del 5. 


3. Se asigna a cada nota un segundo número que especifica su du- 
ración. 
Este segundo número es el que conferirá a la pieza musical su ritmo 
característico. 


Como esta melodía es solemne, asignaremos a la nota negra (¿) un 
tiempo bastante largo, por ejemplo, seis décimas de segundo (0.6); en 
consecuencia, la duración de la nota corchea (¿)) será de 0.3 se- 
gundos, y la de la blanca ( /), 1.2 segundos. 


2 


Un punto a la derecha de una nota aumenta su duración en la mitad 
de su valor. Así, la duración de la nota J es 1.2 + 0.6 =18 se- 
gundos. 


4. Cumplidas las reglas anteriores, se teclea el programa visto en el apar- 
tado anterior, transcribiendo en instrucciones DATA los dos valores 
asignados a cada nota (reglas 3 y 2). 
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e Apiicación de las reglas 
A continuación transcribimos otra vez el pentagrama, indicando el nombre 
de cada nota, su número y su duración. 


Solemne 


RE RE MI m5 53 il ya E MI RE LASOLRE RE 
e as 4 4 2 9 TA 3 
0.6 da 0 La 0 os 0.6 C.6 0.6 1.2 0.3 0.3 


ria 


RE SI ci le DO DO SI da Fl 2% 
14 11 4 12 12 ul 
0.6 0.6 as 05 0 0.3 0.3 0.6 e le 18 


Con estos datos, podemos ya escribir el programa que interpreta la melo- 
día de Cumpleaños feliz. 


REM CUMPLEAÑOS FELIZ 
INPUT “INTRODUCE EL NUMERO DE NOTAS”; N 
FOR|= 1TON 


. 06, 4, 0:6, 2, 0:6, 7, 1.2, 6, 0.3, 2, 0.3, 2, 


A IA 
11, 0.6, 7, 0.6, 9, 1.8, 7 


Para conseguir la interpretación de la melodía, teclear RUN y ENTER, e 
introducir el valor 25 para N (número de notas). 
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4. Hacer un programa que interprete varias veces las notas del si- 
guiente pentagrama. 


ER 


Solución 


— Las notas escritas en el pentagrama son: 
DO RE MI FA SOL LA SI DO 


0 


ZE SS 7 OM 7 


— A estas notas les corresponden los números escritos debajo de 
sus nombres. 


— Como todas las notas son negras ( |), tienen la misma duración. 


— El programa que interpreta estas notas es el siguiente: 


5 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 


REM INTERPRETA LAS NOTAS VARIAS VECES 
INPUT “INTRODUCE NUMERO DE VECES”; V 
FOR|=1TOV 

FOR K = 1T0 8 

READ L 

BEEP 0.25, L 

NEXT K 

PAUSE 100 

RESTORE 

NEXT | 

DATA 0, 2, 4, 5, 7, 9, 11, 12 


Entre cada interpretación se interpone una pausa de unos dos se- 
gundos (instrucción 70 PAUSE 100). 

5. Elaborar un programa que interprete varias veces la escala escrita en 
el pentagrama, interponiendo entre cada interpretación una pausa 
de unos tres segundos. 


== 
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Solución 


5 REM INTERPRETA LA ESCALA EN FORMA "ACELERADA" 
10 INPUT “INTRODUCE NUMERO DE VECES” V 
20 FOR|I=1TOV 
30 LETD=4 
40 FORK =1T07 
50 READL 
60 BEEPD, L 
70 LETD=D — D/2 
80 NEXT K 
90 PAUSE 150 

100 RESTORE 
110 NEXT! 
120 DATAO, 2, 4, 5, 7, 9, 11 


En esta escala las notas que siguen a la primera tienen una duración 
igual a la mitad de la anterior. Es decir, si a la primera se le da una 
duración de 4 segundos, la duración de las siguientes es la indicada 
a continuación: 

DO RE MI FA SOL LA sI 


211533) 


1 0.5 0.25 0.125 0.06025 
Para conseguir esta duración para cada nota se ha incluido la ins- 
trucción 40 LET D = 4 y la 80 LET D = D — D/2 que reduce a la mitad 
la duración de la nota siguiente. 


Hacer un programa que interprete varias veces la escala 


DO RE MI FA SOL LA SI DO 
0 2.4 5 Y 9 11 12 


dando a cada nota una duración igual a la de la anterior menos la 
quinta parte de ésta, o sea, D — D/5. 


Solución 


5 REM INTERPRETA ESCALA DESCENDENTE CON UN 
RITMO DADO POR UNA FORMULA 

10 INPUT “INTRODUCE NUMERO DE VECES”; V 
20 FORI=1TOV 

30 LETD=2 

40 FORK=1T07 

50 READL 

60 BEEPD, L 

70 LETD=D-D/5 

80 NEXT K 

90 PAUSE 100 
100 RESTORE 
110 NEXT! 
120 DATA 11,9,7,5,4,2,0 
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7. Es un muchacho excelente 


Hacer un programa que interprete la popular melodía de la canción 
Es un muchacho excelente. 


¿Dn pra E 


Es un mu-cha-choex- ce - len- te es un  mu- cha-choex-ce- 
7 11 1 11 9 11 2 ul 14 9 9 
0 072 01 O 0.1 OL 0.3. (0.2 ¡0.1 


0.2 0.1 0.1 0.1 


- un- mu-cha-cho ex - ce - len - te y siem-pre lo se - rá. 
MM pl MI 11 11 Y 11 12 16 16 14 11 12 9 7 
0.2 0.1 06.1 01 0.1 03 1.25 0.1 0.2 0,1 02 


Solución 


5 REM ES UN MUCHACHO EXCELENTE 
10 FORI|I=1T0 30 
20 READD, L 
30 BEEPD,L 
40 NEXT | 
50 DATA 0.1, 7, 0.2, 11, 0.1, 11, 0.1, 9, 0.1, 11, 0.3, 12, 0.2, 11, 0.1, 
1,,,0:2,9,.051,,:9,05%, 9,0: 21,9 
2 


, 


0 
Zoo 10 Dz 18 051, 14, 01,901, 


60 DATA 0.3, 11, 0.2,7,0.1,7,0 
11 

70 DATA 0.3, 12, 1.25, 16, 0.1, 16, 0.2, 14, 0.1, 11, 0.2, 12, 0.1, 9, 
0.6, 7 


En esta melodía hay una nota que tiene encima un símbolo especial, 
(13) llamado calderón. La duración de la nota afectada por este símbolo 
se puede prolongar todo el tiempo que se desee. En este ejemplo, la 
duración que la hemos asignado es 1.25 segundos, valor que supera al 
del resto de las notas. 


8. Algunas canciones populares españolas 


Transcribimos a continuación las notas de algunas melodías populares espa- 
ñolas, y las instrucciones DATA necesarias para que el microordenador las in- 
terprete con el programa visto anteriormente: 
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REM INTERPRETA MELODIAS 
INPUT “INTRODUCE EL NUMERO 
DE NOTAS”; N 

FORI=1TON 

READ D, L 


BEEP D, L 
NEXT | 
DATA... 
DATA... 


Allegro SAN FERMIN 
Pp , == 
-— 4 E hd > nd 
v ÚU - no dee- ne - ro dos de fe - bre - ro tres de 
ES== 3 
mar - 20, cua -tro de a- bril, cm - co de ma - yo seis de 
LE E SE 
mn 5 + 
- Pl 
ju - nio. sie -te de ju - lio: San Fer - mín A Pam - 
===> 
plo- e -mos de e con u-na  bo-ta con u-na bo ta a Pam- 
E 3 
1 + 
E===55>25>555>2) 
plo-na he-mos de 11 con u-na bo - ta de cha-co - Ed 


60 DATA 0.15,7, 0.15,7, 0.15,7, 0.3,7, 0.15,4, 0.15,7, 0.15,7, 0.15,7, 
0.3,7, 0.15,4, 0.3,7, 0.15,7 

70 DATA 0.3,9, 0.15,7, 0.15,7, 0.15,5, 0.15,4, 0.3,5, 0.15,5, 0.15,5, 
0,155, 0.3,5, 0.15,2, 0.3,5, 013,9 

80 DATA 0.3,5, 0.15,2, 0.15,5, 0.15,5, 0.15,5, 0.3,7, 0.15,5, 0.3,4, 
0.15,2, 0.3,0, 0.3,0, 0.15,4, 0.3,7, 0.15,12, 0.3,7 

90 DATA 0.15,4, 0.3,0, 0.15,4, 0.15,2, 0.15,4, 0.3,5, 0.15,5, 0.15,5, 
0.15,4, 0.15,5, 0.3,7, 0.15,4, 0.3,0, 0.15,4 

100 DATA 0.3,7, 0.15,12, 0.3,7, 0.15,4, 0.3,0, 0.15,4, 0.15,2, 0.15,4, 
0.3,5, 0.15,5, 0.15,5, 0.15,4, 0.15,2, 0.45,0 
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e 


ASTURIAS, PATRIA QUERIDA 


Moderato 


As- 


tU - rias, pa- tria que - ri - da, 


As 


es - lu - vie-raen As- 


¡quien 


res, 


mo - 


tu- rias de mis a - 


Ten-go de 


al - gu- nas 0-ca- sio- nes! __ 


en 


tu- rias 


= SP - 


dár 


ten - go de  co-ger la flor y 


ár - bol, 


bir al 


su - 


la pon - gaen el bal-cón. 


mo - re - na que 


mi 


laa 


de 


- yo 


te 


de  po-ner, 


je 


de - 


la 


que 


gaen el  bal-cón, 


— 


de co - ger. 


la flor he 


y 


su - bir al ár- bol 
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60 DATA 0.2, 0, 0.4, 9, 0.4, 9, 0.2, 10, 0.1, 9, 0.1, 10, 0.2, 12, 0.2, 
14, 0.6, 12, 0.2, 12 

70 DATA 0.4, 14, 0.4, 10, 0.2, 14, 0.1, 12, 0.1, 10, 0.2, 12, 0.1, 12, 
0.1, 10, 0.6, 9, 0.2, 0, 0.4, 9, 0.4, 9, 0.2, 10, 0.1, 9, 0.1, 10 

80 DATA 0.2, 12, 0.2, 14, 0.6, 12, 0.2, 12, 0.4, 14, 0.4, 10, 0.2, 14, 
0.1, 12, 0.1, 10, 0.2, 12,0.1, 12,0.1, 10, 0:4,9, 0.2, 5,0.1,5,01,5 

90 DATA 0.2, 14, 0.1, 14, 0.1, 13, 0.2, 14, 0.2, 14, 0.2, 16, 0.1, 16, 
0.1, 14, 0.2, 12, 0.1, 9, 0.1, 10, 0.4, 12, 0.2, 14, 0.1, 14, 0.1, 12 

100 DATA 0.2, 10, 0.1, 7, 0.1, 9, 0.2, 10, 0.2, 10, 0.2, 12, 0.1, 12, 
01, 12, 0,2, 14, 0,1, 12, 0.1, 12, 04, 9, 0.2, 5, 0,1, 5, 0,1, 5 

110 DATA 0.2, 14, 0.2, 14, 0.1, 13, 0.4, 14, 0.2, 16, 0.1, 16, 0.1, 14, 
0.2, 12, 0.1, 9, 0.1, 10, 0.4, 12, 0.2, 14, 0.1, 14, 0.1, 1 

120 DATA 0.2, 10, 0.1, 7, 0.1, 9, 0.2, 10, 0.2, 10, 0.2, 12, 0.1, 12, 
0.1, 12, 0.2, 14, 0.1, 12, 0.1, 19, 1.2, 9 


DESDE SANTURCE A BILBAO 
Allegretto 


Des- de  San- tur-cea Bil - ba-o0, 


ven - go por to- da lao — ri- lla, con mi fal - 


rib= la. ——_—— Ven - go de - pri- say co — rrien-do 


sin que meo - pri-ma el cor- sé _________ voy gri - tan- 


129 


do por las  ca-lles: isar- di - na fres - cu - 


des - de San - tur - ce las trai- go yo. D.C. 


La del segundo me llama, 

la del primero, también, 

la del tercero me dice: 

—¿A cómo las vende “usté”? 
Yo le contesto que a cuatro, 
ella me dice que a tres, 

cojo la cesta y le digo: 
¡Sardina frescué! 


(Al Refrán) 


60 DATA 0.Z, 2, 0.2, 2, 0,2, 2, 0.2, 11, 0.2, 11, 0.2, 9, 0.2, 12, 1, 
11 
70 DATA 0.2, 11, 0.2, 10, 0.2, 11, 0.2, 14, 0.2, 12, 0.2, 11, 0.2, 12, 
1,4, 0,2, 12, 0,2, 11,02, 9 
80 DATA 0.2, 7, 0.2, 6, 0.2, 4, 0.2, 7, 1, 6, 0.2, 6, 0.2, 5, 0.2, 6, 
0.2, 9, 0.2, 7, 0.2, 4 
90 DATA 0.2, 4, 1, 2, 0.2, 2, 0.2, 2, 0.2, 2, 0.2, 11, 0.2, 11, 0.2, 9, 
0,2, 12, 1, 11 
100 DATA 0.2, 11, 0.2, 10, 0.2, 11, 0.2, 14, 0.2, 12, 0.2, 11, 0.2, 12, 
1.2,4, 0.2, 12, 0.2, 11, 0.2, 9 
110 DATA 0.2, 7, 0.2, 6, 0.2, 4, 0.2, 4, 1, 2, 0.2, 14, 0.2, 14, 0.2, 14, 
0.4, 16, 0.2, 12 
120 DATA 1.2, 11, 0.2, 2, 0.2, 7, 0.2, 11, 0.1, 9, 0.1, 11, 0.4, 12, 0.2, 
2, 0.2, 6, 0.2, 9 
130 DATA 0.1, 7, 0.1, 9, 0.4, 11, 0.2, 2, 0.2, 7, 0.2, 11, 0,1, 9, 0.1, 
11, 0.4, 12, 0.2, 14, 0.2, 14, 0.2, 14, 1, 11 
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RIANXEIRA 


Allegro 


rán - xo, a bar- quí - na que a 


On - dí - nas ve - nen on - dí - ñas ve - ñen. on - dí - ñas 


O A 
E — ÓN 
AAA EE EA EAS ES 


ve - nen e VAN. === non te em-bar - ques, ri - an - 


60 DATA 0.2,0, 0.2,4, 0.2,4, 0.2,4, 0.2,4, 0.4,5, 0.2,7, 0.2,7, 0.2,7, 
0.2,7, 0.2,7, 0.2,1 
70 DATA 0.2,7, 0.4,9, 0.4,5, 1.2,4, 0.2,0, 0.2,9, 0.2,9, 0.2,9, 0.2,9, 
0.4,9 , 
80 DATA 0.2,9, 0.2,7, 0.2,4, 0.2,7, 0.2,7, 0.2,7, 0.2,7, 0.4,11, 0.4,9, 
124 
90 DATA 0.2,0, 0.2,9, 0.2,9, 0.2,9, 0.2,9, 0.4,9, 0.2,9, 0.2,7, 0.2,4, 
0.2,2, 0,2,1, 0.2.7 
100 DATA 0.2,7, 0.4,9, 0.4,5, 1.2,4, 0.2,7, 0.2,7, 0.2,7 
110 DATA 0.4,7, 0.2,4, 0.2,7, 0.2,7, 0.2,7, 0.4,7, 0.2,4, 0.2,7, 0.2,7, 
0.2,7 
120 DATA 0.2,9, 0.2,9, 0.2,9, 1.2,11, 0.2,11, 0.2,11, 0.2,11, 0.2,12, 
0,.2,11,0.2,9 
130 DATA 0.4,12, 0.2,9, 0.4,7, 0.2,11, 0.2,9, 0.2,7, 0.2,9, 0.2,7, 
0.2,5, 1.2,4 


EN JOAN PETIT 
Popular catalá 


Popular catalana 


=== =2===23=>==>= 


En — Joan Pe- tit quan ba - lla, ba - lla, ba - lla, 


De . Má. En Joan Pe- tit quan ba - lla, ba-la, 


ba.-lla amb el dit. Amb el dit, dit, dit,  ------------- 
ba-lla amb la má. Amb la má, má, má, Ambel dit, dit, 
ba-lla amb el brag. Amb el braq,brag» braq¿ amb la ma, má, 


SD A A-_ra ba llaenJoan Pe - tit. 
Moras os ue e a A-ra ba-llaenJoan Pe - tit. 
má, amb el dit, dit, dit. A-.ra ba-lla en Joan Pe Di 


60 DATA 0.2,0, 0.2,5, 0.2,5, 0.2,5, 0.2,5, 0.4,5, 0.4,5, 0.2,0, 0.2,0, 
0.2,0, 0.2,0, 0.4,9 

70 DATA 0.2,5, 0.2,0, 0.2,5, 0.2,5, 0.2,5, 0.2,5, 0.4,5, 0.2,5, 0.1,5, 
0.1,5, 0.2,4, 0.2,0 

80 DATA 0.2,0, 0.2,4, 0.4,5, 0.2,0, 0.2,0, 0.4,9, 0.4,7, 0.4,5, 0.2,0, 
0.2,0, 0.4,9, 0.4,7 

90 DATA 0.4,5, 0.2,0, 0.2,0, 0.4,9, 0.4,7, 0.4,5, 0.1,5, 0.1,5, 0.2,4, 
0.2,0, 0.2,2, 0.2,4, 0.4,5 
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LAS FLORES DE ZARAGOZA 
Jota aragonesa 


Moderato > 


> >  rallentando 


> 
o Él HE ME 


Despacio 


Se rie-gan conel _ Ca - nal, 


PP... ] se rie - gan con el Ca - 
dl 
| 
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80 
90 


DATA 0.4,19, 0.4,19, 0.4,19, 0.4,19, 0.2,19, 0.2,18, 0.2,19, 
0.2,16, 0.2,16, 0.2,14, 0.2,12, 0.2,9, 0.4,7 

DATA 0,4.19, 0.2,19, 0.2,18, 0.2,19, 0.2,16, 0.2,16, 0.2,14, 
0.2,12, 0.2,9, 0.4,6, 0.4,14, 0.2,16, 0.2,14, 0.2,13, 0.2,14 

DATA 0.2,16, 0.2,14, 0.2,12, 0.2,9, 0.4,6, 0.4,14, 0.2,16, 0.2,14, 
0.2,13, 0.2,14, 0.2,16, 0.2,14, 0.2,12, 0.2,9, 0.4,7 

DATA 0.4,19, 0.2,7, 0.2,9, 0.2,11, 0.2,12, 0.2,14, 0.2,16, 0.2,18, 
0.2,19, 0.4,19, 0.4,19, 02,7, 0.2,9, 0,2,11, 0,2,12, 0,2,14, 
0.2,16, 0.2,18, 0.2,19, 0.4,21 
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100 


110 
120 


130 
140 
150 
160 
170 
180 
190 


200 


DATA 0.4,18, 0.2,21, 0.2,19, 0.2,18, 0.2,19, 0.2,21, 0.2,19, 
0.2,18, 0.2,16, 0.4,14, 0.4,18, 0.2,18, 0.2,16, 0.2,14, 0.2,16, 
0.2,14, 0.2,12, 0.2,11, 0.2,9, 0.4,7 

DATA 0.4,19, 0.4,19, 0.4,16, 0.4,14, 0.4,16, 0.4,14, 0.4,19, 
0.4,19, 0.4,16, 0.4,14, 0.4,16, 0.4,18 

DATA 0.4,2, 0.4,2, 0.2,0, 0.2,2, 0.2,6, 0.2,7, 0.2,12, 0.4,11, 
0.2,12, 0.3,9, 0.1,11, 0.1,9, 0.1,7, 0.2,4, 0.1,6, 0.1,4, 0.4,2, 
0.4,-1, 0.4,2 

DATA 0.4,-5, 0.4,-5, 0.4,-1, 0.2,2, 0.2,7, 0.2,11, 0.2,14, 0.4,12, 
0,214,0:2,11,03,11, 0:1,12, 0.1,11, 0.1,9, 0.2,7, 0.1,9, 0,1,7 
DATA 0.4,6, 0.4,6, 0.4,9, 0.4,2, 0.4,2, 0.2,0, 0.2,2, 0.2,6, 0.2,2, 
0.2,12, 0.4,11, 0.2,12 

DATA 0.5,9, 0.1,11, 0.1,9, 0.1,7, 0.2,4, 0.1,6, 0.1,4, 0.4,-5, 
0.4,-1, 0.4,2, 0.4,-5, 0.4,-5, 0.2,-1, 0.2,2 


DATA 02,7, 0,2,11, 0,2,14, 0.4,12, 0.2,14, 0.2,11, 0.3,11, 
0.1,12, 0.1,11, 0.1,9, 0.2,7, 0.1,9, 0.1,7, 0.4,6, 0.6,9, 0.2,12 
DATA 0.2,9, 0.3,9, 0.1,11, 0.1,9, 0.1,7, 0.2,4, 0.1,6, 0.1,4, 0.4,2, 
0.6,6, 0.2,2, 0.5,4, 0.1,6, 0.1,4, 0.1,2, 0.2,0, 0.1,2, 0.1,0 

DATA 0.4,-5, 0.4,-1, 0.4,2, 0.4,5, 0.4,-5, 0.2,-1, 0.2,2, 0.2,7, 
0.2,11, 0.2,14, 0.4,12, 0.2,14 

DATA 0.5,11, 0.1,12, 0.1,11, 0.1,9, 0.2,7, 0.1,9, 0.1,7, 0.2,6, 
04,12, 0.1,14, 0.1,12, 0.2,11, 0,2,12, 0.2,9, 0.3,9, 0.1,11, 0.1,9, 
0.1,7, 0.2,4, 0.1,6, 0.1,4 

DATA 0.2,2, 0.5,6, 0.2,6, 0.2,2, 0.2,4, 0.3,4, 0.1,6, 0.1,4, 0.1,2, 


0.2,0, 0.1,2, 0.1,0, 0.4,7, 0.4,7, 0.2,7, 0.4,7 
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APÉNDICE | 


BASIC DEL ZX Spectrum 


Palabras Función 
BASIC que realiza 
ABS X Da el valor absoluto del número X. 


Sitúa el cursor en la posición corres- 
pondiente a la fila F y a la columna 
Es 


Calcula el arco cuya tangente es X. 
(El arco calculado se expresa en ra- 
dianes.) 


Da el carácter del código ASCII co- 
rrespondiente al número X. (X es 
un entero comprendido entre 32 y 
1 


28.) 


Borra lo escrito en la pantalla pero 
no lo almacenado en la memoria 
del microordenador. 


LOAD "XXX" Carga en la memoria del microor- 
denador un programa grabado en 
un casete con el nombre XXX. 


Continúa la ejecución de un pro- 
grama interrumpida por la instruc- 
ción STOP, 


CODE X$ Da el número del código ASCII co- 
rrespondiente al primer carácter de 
la cadena X$. 

COS X Calcula el coseno del ángulo X, ex- 
presado en radianes. 


SAVE "XXX" Graba en un casete con el nombre 


XXX un programa almacenado en 
la memoria del microordenador. 


DATA Almacena los datos que serán 
leídos por una instrucción READ, 
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Función 
que realiza 


DEF FNA (X) Define una función numérica de 
nombre FNA y de variable X. (Para 
definir otras funciones cambiar la 
letra A por otras del abecedario.) 


DIN L(N) Dimensiona una variable de un ín- 
DIM T(N,M) dice. 
Dimensiona una variable de dos ín- 
dices. 


ENTER Hace que el dato o instrucción te- 
cleado se almacene en la memoria. 

EXP X Calcula la potencia e*, siendo e = 
= 2./1828. 

FNA (X) Da el valor de la función de nom- 


bre FNA previamente definida, para 
FOR V=¡ TO t STEPs 


el valor X. 
GOSUB n 
GOTO n 


IF (condición) THEN 
(instrucciones) 


Ejecuta un conjunto de instruc- 
ciones, llamado bucle, que em- 
pieza con la instrucción FOR y ter- 
mina con una instrucción NEXT. 

(Variable: V; valor inicial de V, i; 
tope t; incremento, s.) 


Transfiere el control de la ejecu- 
ción de una subrutina que em- 
pieza en una instrucción nume- 
rada con n. 


Transfiere el control de la ejecu- 
ción a la instrucción del programa 
numerado con n. Esta instrucción 
puede ser anterior o posterior a n. 


Si se cumple la condición entonces 
se ejecutan las instrucciones que si- 
guen a THEN; y si no se cumple se 
ejecuta la instrucción escrita en la lí- 
nea siguiente. 


Permite introducir datos numéricos 
o alfamunéricos, los cuales se asig- 
nan a la variable A o A$, respecti- 
vamente. 


INPUT A 
INPUT A$ 
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Función 
que realiza 


Palabras 
BASIC 


Calcula la parte entera del número X. 


Da el número de caracteres de la 
cadena almacenada en Af. 


LET (variable) = Calcula el valor de la expresión y 
= (expresión ) lo asigna a la variable. 


LIST Hace aparecer en la pantalla: 
LIST n — todo el listado del programa 
almacenado en la memoria. 
— la instrucción n. 
L Calcula el logaritmo natural o ne- 
periano de X. 
N 


NX 

EW Borra todo el contenido de la me- 
moria. 

| 


NEXT V Transfiere la ejecución del pro- 

grama a la instrucción FOR del bu- 
cle siempre que el valor de V sea 

menor o igual que el tope del bu- 
cle. 

PAUSE N 

PEEK X 

Pp 

POKE N, V 

PRINT 


RANDOMIZE 
y RND 


Detiene la ejecución del programa 
y retiene la imagen un tiempo que 
depende de N. 


Da el contenido de la posición de 
la memoria de dirección X. 


Da el número 3.14159265 (nú- 
mero TT. 


Almacena el valor de V en la posi- 
ción de la memoria de dirección N 
(V es un entero comprendido en- 
tre 0 y 255). 


Escribe O imprime el valor de la 
variable, el resultado de opera- 
ciones aritméticas y texto entreco- 
millado. 


Da un número aleatorio entre 0 y 
¡Y 
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Palabras 
BASIC 


READA, B, ..., X 


RESTORE 
Inicia la ejecución del programa. 


RETURN 
RUN 
(«Correr el programa») 


SGN X Calcula el signo de X (+1, si X > 
0; OsiX = 0; —1 siX < 0). 


Función 
que realiza 


Asigna a las variables A, B, ..., X 
los datos almacenados en una ins- 
trucción DATA, en forma secuen- 
cial. 


Permite añadir aclaraciones O co- 
mentarios en un programa sin afec- 
tar su ejecución. 


Permite volver a leer desde el prin- 
cipio los datos contenidos en las 
instrucciones DATA. 


Última instrucción de una subru- 
tina, cuya función es transferir el 
control de la ejecución siguiente a 
la GOSUB del programa principal. 


Detiene la ejecución del programa 
justo en la línea en que se encuentra 
STOP. 


STR$ N Convierte el número almacenado 
en N en una cadena numérica. 
T 
TAB N Mueve la posición del cursor a la 
columna N. 
¡ ; —————_—_————-_—=JJ AA | 
TAN X Calcula la tangente de X, expre- 


sado en radianes. 


TO A$ (N TO M): extrae una subcadena 
de A$ desde la posición N a la M. 


VAL N$ Convierte la cadena numérica al- 
macenada en N$ en su valor nu- 
métrico. 
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APÉNDICE ll 


INSTRUCCIONES PARA GRÁFICOS, COLORES Y MÚSICA 


Instrucción Significado 


Formato 


Función 


| ATTR 


Atributo 


CATTR (F, €) 


1 
| Obtiene información sobre 


qe 


el color de la tinta y del pa- 
pel, el brillo y el parpadeo 
de la posición de carácter 
de la fila F y columna C. 


BEEP 


des 


Sonido 


>] 


Les 


BEEP d, n 


Genera una nota musical 


número n. 


p— 
BRIGHT 


BORDER 


BRIGHT b 


¡a 


desactiva si b = 0. 
— 


de duración d y de tono o 
altura correspondiente al 


Activa el brillo si b = 1 y lo 


BORDER n 


Da al borde de la pantalla 
el color correspondiente al 
número n. 


CIRCLE 


L 


Traza circun- 
ferencias 


Tara Ye. 


— 


Dibuja una circunferencia 
con centro en el punto (X, 
Y) y radio R. 


DRAW 


Traza líneas 


a 


a DRAW H, V 


Tomada una línea sed | 
desde el último punto que 
se imprimió o posicionó 
hasta el punto que se en- 
cuentra a H puntos en la 
horizontal y a V puntos en 


DRAW 


E 


Traza arcos 


DRAW H, V, N 


FLASH 


¡== 


Parpadeo, ¡n- 
termitente 


— 


sentido horario. 


Dl la vertical. 


Si (A, B) son las coordenadas ] 
del último punto que se im- 
primió DRAW H, V, N, dibuja 
un arco que va desde (A, B) 
hasta (A + H, B + H) con:un 
ángulo N; si éste es positivo 
genera el arco en sentido an- 
tihorario, y si es negativo, en 


Activa el parpadeo si b = 
= 1, y lo desactiva si b = 
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INK n 


Tinta o pri- 
mer plano 


Da a la tinta el color co- 
rrespondiente al número n. 


INVERSE 


OVER 
PAPER Papel 
o fondo 


PLOT Imprime un 
punto 


POINT Punto 


Inverso, in- | INVERSE b 


vertido 


Activa el invertido de tinta 
y papel si b = 1, y lo de- 
sactiva si b = 0. 


Sirve para imprimir sobre un 
carácter sin borrarle (sirve 
para poner acentos). 


- 
Da al papel el color corres- 
pondiente al número n. 


PAPER n 


PLOT X, Y Imprime un punto en el 
pixel de coordenadas refe- 
ridas al vértice inferior ¡z- 


quierdo de la pantalla. 


POINT (X, Y) Comprueba si el pixel X, Y 
tiene color de tinta o de 


papel. 
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